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御 注意 

(1) 本 書 は 著者 ら が 調査 し た 結果 を 出版 し た も の で す 。 

(⑫) 本 書 は 内 容 に つい て 万 全 を 期し て 作製 いた し まし た が , 御 不 審 な 点 や 誤 リ 記載 も 
れ な ど お 気 付き の こと が あり まし た ら , 出版 元 まで 書面 に て 御 連 絡 く だ さい 。 

(3) 本 書 の 内 容 に 関し て 運用 し た 結果 の 影響 に つい て は (2) 項 に か か わら ず 責 任 を 負い か 
ね ます の で 御 了 了承 くだ さい 。 

(4④ 本 書 の 全部 また は 一 部 に つい て 出版 元 か ら 文書 に よる 許諾 を 得 ず に , いか な る 方 法 
に お いて も 複写 , 複製 する こと は 禁じ し られ て いま す 。 
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まえ が き 


パー ソナ ル ・ コ ンピュータ PC 一 80 0 1mkTII は , 我 還 に お ける パ 
ー ソ ナル ・ コ ンピュータ ・ ブ ー ム の 端緒 を 開く の に 多大 な 役割 を 演じ 多 
く の 実 績 を 誇る PC 一 8 0 0 1 の 思想 を 受け 継い だ 上 で , さら に 多く の 
機能 強化 が な され て いま す . 

PC-8 0 0 1 と 比較 し た PC 一 80 0 1mkTII の 主 な 特徴 は , N 一 
BASIC の 機能 を 拡張 し た N80 一 BASTIC が 採用 され た こと , 本 
体内 に 6 4 K バ イト も の メイ ン R AM お よび 1 6 K バ イト の グラ フィ ク 
ス R AM が 標準 実装 され た こと , これ に より 高密 度 な グラ フィ クス 表現 
さら に は 日 本 語 処理 が 可能 に な っ た こと , な ど が あげ られ ます . 

本 書 は , 先 に 述べ た 特徴 を 充分 に 踏ま えた 上 で , 各々 の ユー ザ が PC 
ー8001mkII を PC 一 8 0 0 1 の 後継 機種 と し て , また 新しい 1 つ 
の パー ソナ ル ・ コ ンピュータ と し て も 思う まま に 活用 で きる よう , 著者 
ら が 独自 に 解析 し た PC 一 8 0 0 1mkT1II の 内 容 を まとめ あげ , ここ に 
発表 する も の で あり ます . 

読者 諸兄 に お か れ て は , 本 書 を 熟 読 さ れる こと に より , PC-800 
1 mkII の 内 部 構造 を 一 層 深 く 理 解 さ れ , 高度 な 活用 を され る た め の お 
役に立た ん こと を 深く 希望 する も の で あり ます . 
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第 1 章 NBAS1C シ ステ ム ・ サ ブ プルー チン ……im 
0000H コー ルド トス ター トー ドド oh 4 
00.0.8H ホッ トト スタ クター トー ドド ドド 6 
0013H ホッ トト スタ ーー ト oo 8 
0018H デバ イス へ の 1 バイ ト 出 で oro 10 
002BH プリ ンタ へ の 1 バイ ト 出 カー ドド or 12 
0035H CRT へ の 1 バイ ト 出 カド oo 14 
00.6AH ホッ トト スタ クター トド 18 
0081H BASTIC の ョ コマ ャ ンド 待ち eoeoeooeoeoonoonoenn 20 
0099H PC--80 3 1 と の 1 セク タ 入 出力 で omoro 22 
00CBH 拡張 シス テム ・ チ ュ ェ ッ ンク ーー ドド oo 26 
0257H CRT へ の 1 バイ ト 出 カー ドド mm 27 
02D7H カー ソル 移動 と CRT へ の 1 バイ ト 出 力 で oirloilo 了 の 28 
0350H ベル ・ コ ー ド の 遇 カー ドド ドド Errh 30 
03A9H カー ソル の 移動 ………ー ド TETTTTT 32 
03D9H_VRTCO グ の チェッ クー ドド oo 35 
03F3H キャ ラク タ 座 標 じ VRAM アド レス 変換 …… の er 36 
0401H 論理 座 西 じ 絶対 座標 変換 … パ eee 37 
0451H テキ スト ・ ス クリ ー ン の 1 ライ ン ・ ク リア ememnin 40 
045AH テキ スト ・ ス クリ ー ン の クタ リア ooneenorrrrrrrrr 42 
047AH ライ ン 数 か ら VRAM の バイ ト 数 を 計算 ei 44 
0487H テキ スト 画面 クリ ア ・ バ ッ フ ァ の 設定 … の meromero 46 
04F8H アト リピ ビ ュー ト の コン トコ ロー ルル … eroeoomoeneenernerrrm 48 
0664H ライ ン 番 号 じ VRAM アド レス 変換 … の (ionmmrn 50 
06E6H アト リ ビ ュ ー ト の コン トロ ーー ルル om 52 
07C9H ファ ンク ショ ン ・ キ ー 表 示 の 開始 emem 54 
08F7H テキ スト ・ ス クリ ー ン の モー ド 設 定 … で meme 56 
093AH テキ スト ・ ス クリ ー ン 表示 文字 数 の 設定 …"… ぐ ieiiemet… 58 
09A3H テキ スト ・ ス クリ ー ン 表示 桁 数 の 設定 … ぐ mirrororrmr の 60 
09D7H テキ スト ・ ス クリ ー ン 表示 行 数 の 設定 …… ぐ ieiermrmmr 62 
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09F6H 
0A5EH 
0A73H 
0B18H 
0B2EH 
0B92H 
0BD2H 
0BE2H 
0BF3H 
0C2EH 
0C46H 
0C88H 
0CB3H 
0CDAH 
0CF1H 
0D14H 
0D43H 
0D4BH 
0D60H 
0DA3H 
0DAEH 
0F75H 
0F7BH 
0FACH 
124AH 
1602H 
1663H 
17E9H 
1875H 
1B7EH 
1B8AH 


C RT の 25 行 モー ド 用 イニ シア ライ ズ ス mmoeoreemrtttn 64 


C RT の 20 行 モー ド 用 イニ シア ライ ズ …… で で rem 66 
ファ ンク ショ ン ・ キ ーー リリ スト ドド oooeooeenenerrrnrer 68 
プ ブート ・ ス トラ ッ プ ズー ロー ター ドド omoererrerrenrm 70 
テキ スト ・ ス クリ ー ン 最 下 段 の 消 ……① 〇 ドド ーー 72 
グラ フィ ッ ク 座 標 レ キャ ラク タ 座 標 変 換 …… の rmemermiri…i… 74 
カー ソル 表 の 停 上 上 の ドド oo 80 
カー ソル 表示 の 開始 … の ドド mmm 82 
CMT か ら の 入力 イニ シア ライ ズ … ド ememrmnt 84 
CMT イ ンタ フェ ー ス の クロ ーー スズ oeomroeooeemerrernrrrrrrr 84 
CMT へ の 出力 イニ シア ライ スズ reo で emm 84 
CMT か ら の 1 バイ トス カー ドド ーー ドド ドド ドド ドー て 85 
アス タリ スク の フウ クル シン クー ドド mt 85 
CMT へ の 1 バイト 出 カ ーー ドド ドド ドド 85 
STOP キ ーー チュ アッ ンク ドド 86 
PD8251C ソ フト ウェ ア ・ リ セッ ト … の it 88 
一 定時 間 の 内 蔵 ブ ザー 鳴動 … ド ドド ドド oo 90 
内 蔵 プ ブザー の コン トロ ー ル ーー ドド ドド ドド ドド に ピー ブロ 92 
プリ ンタ へ の 1 バイ ト 出力 to 94 
内 蔵 リ レー ン 6 反 還 ……ー ド TTP 95 
内 蔵 リ レー の コン トロ ー イ ルー ドド PP 97 
キー ボー ド か ら の 1 バイト 入力 待ち …… ぐ の rerTT 99 
キー ボー ド か ら の 1 バイ ト 入 力 で … ぐ で ドド ドド oo 100 
リア ル タ イ ム ・ キ ー ボ ー ド ・ ス キャ ニン グ meet 102 
テキ スト ・ ス クリ ー ン シコ ピー に に に に に に いい 104 
タイ マ か ら の デー タ 読 出し ーー ドド ーーー 107 
タイ マ へ の デー タ 書 込み ーー ドー レー ンー ドー 110 
BA S IC の プロ グラ ム 格 納 ア ドレ ス 設 定 …… の ii…… 113 
^Disk BASIC Feature "エラー …‥"… ーーー ドー 116 
スク リー シー エディター ドド ドド ドド 117 
シレ 全 ン 生ま 2 と 2ECGEEEEGCECCEEEECIPEEEPEEEEPPPEPREEEER 121 


1F8BH 
240FH 
2412HH 
2503H 
2541H 
259CH 
2671H 
26 7EH 
2686H 
2689HH 
26AFH 
26B2H 
26BDH 
26C0OH 
6C9H 
6D5H 
70CH 
739H 
778H 
77FH 
7 8 CH 
79CH 
7A1H 
7B3H 
7 BDH 
7D0H 
7DFH 
7E9H 
7 2 の 日 
7F5H 
82CH 


1 て) 


ト う トト つ トウ つ トウ つ トト つ の トト つ トト つ の トト つ トト つ の トト つ トト つ の よう 人 OO OO 
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BASIC テ キス ト の 終了 アド レス 設定 ーーーーーー 123 





単 精度 型 実数 の 減算 -…ーーーーーーーーーーーーーーーーーーーーー- 126 
単 精 度 型 実数 の 加算 ーー ドド ドド ドド ドド ーー 128 
自然 対数 の 計 條 ーー ドド ドド ドド ドド ーーー 130 
単 精度 型 実 数 の 乗算 ーー ドド ドド ドー ドド ドド ドド ーー 132 
単 精度 型 実 数 の 人 候 ……ttiiiiiioooonnnPTT 134 
絶対 値 の 136 
実数 の 待 号 反転 …… ド ドド ドド ーー 138 
符号 iii 140 
8 ビット 整数 の 格納 oo 142 
単 精度 型 実 数 の 移動 1 … 〇 …… ぐ ドド oo 144 
単 精度 型 実 数 の 移動 2 ーー ドド ドド ドド ーーー 144 
単 精度 型 実 数 の 移動 3 ee 144 
単 精度 型 実 数 の 移動 4 oreoeeeeeoee 145 
単 精度 型 実数 の 移動 5 ………ー ポ ーー ドド ーーー 145 
2 5 6 バイ ト 以 内 の ブロ ッ ク 転 送 ……ー ド ドド ドド ーー 145 
単 精度 型 実 数 の 比較 ドド ドド ドド ドド ーー 146 
整数 の 比較 ドド ドド ドド ドド ドド ドド ドド (て し し 148 
倍 精度 型 実 数 の 比較 ドド ドド ドド ドド ドド ーーー 150 
乏 数 更 へ の 152 
単 精 度 実数 型 か ら 整 数 型 へ の 変換 … rei 154 
(の ルン よく PCEPCEEECEPEECPCEPEEEECPEEPECEEEYICCPEEEECECECEECEEEEEP 156 
フロ ー テ ィング ・ ア キュ ムレ ー タ の 玲 指 定 で oetirii… 158 
単 精度 実数 型 へ の 変換 …… ド ーーー ドー 162 
倍 精度 実数 型 か ら 単 精度 実数 型 へ の 変換 ………ttt… 164 
整数 型 か ら 単 精度 実数 型 へ の 変換 …… ド ドド ーー 166 
倍 精 度 実数 姫 へ の 変換 ドド ドド ドド ドド oo 168 
単 精 度 実数 型 か ら 倍 精度 実数 町 へ の 変換 tt… 170 
FACC の 倍 精 度 実数 型 指定 ………teeeoeoeoeoeoee PT 172 
FACC の 単 精度 実数 悪 指定 oOPT 172 
整 部 の 174 


283FH 
28D2H 
28DDH 
28FDH 
2950H 
299DH 
29A0H 
29B2H 
29C3H 
29CAH 
2AF4H 
2B37H 
2BB7H 
2BBEH 
2D0BH 
2D13H 
2D22H 
2D23H 
309FH 
31A1H 
31F3H 
3283H 
32F6H 
32C6H 
335DH 
3372H 
3BF9H 
3D76H 
3D79H 
3D7AH 
3DC1H 


小数 点 以下 を 切り 捨て た 整数 値 の 計算 ーー…… 176 





整数 の 減算 ドド ドド ドド ドド に に に に 178 
(9 の 2 CCCCCCEEEEEEEECPCECEEECEECPEECEECECEPECEEEECEEEEEEEE 180 
整数 の 乗 人 ililirirircrr 182 
整数 の iri 184 
整数 の 符号 反転 1 ーー ドド ドド ドド ドド ドー 186 
整数 の 符号 ii 186 
整数 の 剰余 演算 Sier6180W の 80858 お iWre Se58419 の 89326212.6HGHSSree956e 188 
倍 精 度 型 実数 の 減 修 … で ーー トド oo 190 
倍 精度 地 り 実数 の 加 算 CCP で で PF で すす で で と と すす で です で です で で すす で と すす す すい 192 
許 精 度 型 実数 の 乗算 …… ド ドド ドド ドド ドド ドーoomm 194 
倍 精度 型 実数 の 除算 で … の oo 196 
文字 列 か ら 倍 精 度 実数 型 デ ー タ へ の 変換 ……… rt 198 
文字 列 か ら 数 値 デ ー タ へ の 変換 …ー ド ドド omo 200 
*in "と 行 番号 の 出力 ……… ド ドド ドー ドド に に に に に に ピー ロ 202 
行 番号 の 出 カ …… ド ドド ドド ドド emm 204 
数 値 デ ー タ か と 文字 列 へ の 変換 …… ド ドド ドド ドド ーー ドー 206 
数 値 か ら 有 フォ ー マ ッ ト 文 字 列 へ の 変換 …… で の re 208 
無 符号 整数 デー タ か ら 文 字 列 へ の 変換 ……… ド ーー 213 
平方 の 計 人 区 ……tー ド ーー ドド に に 216 
e に 対す る 指数 関数 の 計算 ドー ドド ドド ドド ドド ドド ーーー 218 
SE: な SGCGSECGCEKCGOCEETPPLPPPPPPPFPPPPPPEPPPPPPREEPRP 220 
余弦 (コサイン ) の 計算 …… の ドド 223 
正弦 (サイ ン ) の 計算 ドド ドド に いい 224 
正 接 値 (タン ジェ ント ) の 計 條 226 
逆 正 接 (アー ク ・ タ ンジ ェ ン ト ) の 計算 emem 228 

ーー 出 カ ーー 230 
BASIC テ キス ト の リン グ 1 ーー ドー バー 232 
BASIC テ キス ト の リン ク 2 ・… oo 234 
BASIC テ キス ト の リン クタ 3 ドー ドド に oe 234 
BASIC の 行 番号 サー チ ーー 235 





3E5 CH ニー イン プット 239 
4095H レジ スタ ・ ペ アプ の 比較 ee 242 
40A6H デバ イス へ の 1 バイ ト 出 カカ で oonT 244 
4BEAH 整数 の 人 20 oe 246 
4CCBH 英 小 文字 か ら 英 大 文字 へ の 変換 1 …ー ド ーー 248 
4CCCH 英 小 文字 か ら 英 大 文字 へ の 変換 20 …S…ー ド ドド ーー ンー 248 
4CE9H 16 進 文字 列 か ら 数 値 デ ー タ へ の 変換 … で ooooit 256 
52ECH 文字 列 の 出 カ 1 で eo 252 
52EDH 文字 の 出 2 252 
PC-8001mkI の N 一 BASTCO Tee 13 
N 一 BASIC の 主要 デー タ 領 域 … ホ ーー ドド ドド ドド ーー ピー 69 
PD3 3 0 1 の アト リピ ビュ ーー ト oo oo 79 
FACC の 構成 …… ポ ーー 161 
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第 | 章 


/W-P457C シ ステ ム ・ サ フウ ルレ シー チン 


N 一 BAS1C シ ステ ム ・ サ ブル ー チ ン 


本 吉 は 。 多く の 有用 な シス テム ・ サ ブ プルー チン お よび 王 要 な シス テム ・ ル ー チ 
ン の 中 か ら , 機械 語 に よる PC 一 8001mkII の 活用 に 不可 欠 だ と 思わ れる も 
の を 選択 し 資料 集 と し て まとめ た も の で す . 

な お , 本 章 に まとめ た 解析 内 容 だ け で は 間に合わ ず , より 高度 な 応用 を 考え て 
お られ る 場合 に は , 秀 自 分 の 手 に よる BASIC の 解析 を お 勧め いた し ます . N 
ーBASTIC の 胃 細 に つき まし て は , 撤 苦 『PC-ー8001 BASIC SO 
URCE PROGRAM LISTINGS』( 秀 和 シ ステ ム ト レ ー デ ィング 株 
式 会 社 発行 ) を 参照 し て いた だ きた いと 思い ます . か な ら ず や BASIC 解析 
の お 役に立つ こと で し ょ う . 


本 章 の 各 ル ー チ ン は ,、 エン トリ ・ ア ドレ ス に よっ て ソー ティ ング し , 分 類 い た 
しま し た 。 





アド レス | 各 シ ステ ム ・ ル ー チ ン の エン トリ ・ ボ ポイ ント を 示し ます . 
機能 | 各 シ ステ ム ・ ル ー チ ング の 実行 内 容 を 簡単 に 示し ます . 
レジ スタ | 各 シ ステ ム ・ ル ー チ ン の 実行 後 、 内 容 が 変更 され る レジ スタ を 示し 


ます . し た が っ て これ ら の レジ スタ の 内 容 を 保存 し な けれ ば な ら な い 場 合 に は , 
ユー ザ ・ フ ログ ラム 中 で の レジ スタ 退避 が 必要 で す . 
[解説 | 各 シ ステ ム ・ ル ー チ ン の 詳し い 使 用 方 法 , 入出 力 パ ラメ ー タ な ど を 
説明 し た 上 で , 場合 に よっ て は 関連 し た 子 備 知識 を 示し ます . 
[| サン プル | 各 シ ステ ム ・ サ プル ー チ ン の 使用 例 と し て , で きる 限り 多く の サン 
プル ・ プ ログ ラム を 取り 上 上 げ ま し た . 

これ ら の プロ グラ ム は , 部 を 除い て ザイ ログ 形式 の Z8 0 ニー モニ ッ ク に よ 
る 記述 を 行い アセ モン プル ・ リ スト を 掲載 し まし た . あわ せ て サン プル ・ プ ログ ラ 
ム の 実行 例 も が ぶし まし た の で , 各 シ ステ ム ・ ル ー チ ン の 仕様 を 理解 さん れる 上 で お 
役立て くだ さい . 





本 草 の 執 筆 に あたっ て は , つぎ に 示す 構成 の シス テム を 使用 し て お り ま す 
1) PC 一 8001mkII シリ アル ・ ナ ン バ 3502458CC 


2) PC 一 8822 16 ピ ン ・ ド ッ ト ・ マ トリ クス 漢字 プリ ンタ 
3) PC 一 8031 一 2W 両面 倍 密 度 デ だ ュ ア ル ・ ミ ニ ・ デ ィ ス ク ・ ユ ニッ ト 
4) PC 一 8046 9 イン チ ・ グ リー ン ・ デ ヂ ディスプレイ 


0000 日 コー ルド ・ ス ター ト 


アド レス | 0000H 
機 能 | コー ルド ・ ス ター ト 
レジ スタ | AFBCDEHL 














解説 | STOP キ ー の 入力 中 で あれ ば , 0 0 6 AH 番地 の ホッ ト ・ ス ター 
ト に ジャ ンプ し , STOP キ ー の 入力 中 で な けれ ば , 1 7 5 7H 番 地 に ジャ ンプ 
する こと に より シス テム の イニ シア ライ ズ を 行い ます . 

シス テム の イニ シア ライ ズ 時 に は , BASIC の テキ スト を 消去 し ます が , 0 
0 6 AH 番地 の ホッ ト ・ ス ター ト で は , BAS IC の テキ スト を 保証 し ます . 





サン プル 


ーーー cold = モ tar 七 or no 一 一 


ORG 0C100H 

H 
C100 2151C1 START: LD HL,PROMPT 
C103 CD48C1 ~ CALL DSPMSG 
C106 CD750F LOOP: CALL OF75H 3j input a character from keyboard 
C109 CBAF RES 5,A ? Conver モ into capital letter 
C10B FE59 CP YY に 
C10D 2806 JR  Z,YES 
C10F FE4E CP ^N* 
C111 2820 JR  Z,NOT 
C113 18F1 JR LOOP 
C115 216CC1 YES LD HL,MSGY H 
C118 CD48C1 CALL DSPMSG H 
C11B 060A LD  B,10 H 
C11D 3E3E YES1: LD AA/> H 
C11F CD5702 CALL 0257H H 
C122 CD3CC1 CALL MAIT j demonstration before cold star 
C125 10F6 DJNZ YES1 H 
C127 2184C1 LD HL,MSGJ H 
C12A CD48C1 CALL DSPMSG H 
C12D CD3CC1 CALL MAIT H 

日 
C130 C30000 JP 0000H 3 X jus 七 cold ョ モ ar モ 

5 
C133 218DC1 NOT LD HL,MSGN 日 
C136 CD48C1 CALL DSPMSG j jump to system moni モ or 
C139 C3665C JP 5C66H H 


いり a1 モ 上 Subrou セ ine 


destroys *: flags only 


oe こ > こ ふ で < こ < 


C13C C5 MAIT: PUSH BC 

C13D OEFF LD C,OFFH 
C13F 06FF MAIT1: LD B,OFFH 
C141 10FE MAIT2: DJNZ MAIT2 
C143 0D DEC C 

C144 20F9 JR NZ ,UAIT1 
C146 C1 POP BC 

C147 C2 RET 


H 
j display me ら 33a9e 3uDCou モ ine 


C148 
C149 
C14A 
C14B 
C14E 
C14F 


C151 
C155 
C159 
C1S5D 
C161 
C165 
C169 
C16C 
C170 
C174 
C178 
C17C 
C180 
C184 
C188 
C18C 
C18D 
C191 
C195 
C199 
C19D 
C1A1 


C1A3 


7E 

AZ 

C8 
CDS702 
23 
18F?7 


636F6C64 
20737461 
7274206F 
72206E6F 
74202879 
2F6E2920 
3F2000 
7965733A 
65786563 
75746520 
636F6C64 
20737461 
72742000 
206A7573 
74202121 
00 
6E6F3A6A 
756D7020 
746F206D 
6F6E6974 
6F722021 
2100 


6GC100 


cold 


モモ ar or 


\G6C100 


cold 


tar 七 or 


1npu モ ら = : top address of message in register hl 
destroys= : register af。h,1 


ロー ーー 


ISPMSGiLD  A,(HL) 
AND A 
RET Z 
CALL 0257H j display a character 
INC HL 
JR DSPMSG 


me らき 89 ど 8 じ @8 


H 
PROMPT iDEFB “cold start or not (y ノ Zn) ? “4.0 


MSGY: DEFB "yesiexecute cold start ",0 


MSGJi DEFB " just !!7.0 


MSGN: DEFB “nozi jump to monitor !!740 


END 


not (y ノ Zn) ? noi jump to monitor !! 


not (y/n) ? yesiexecute cold star モ >>>>>>>>>> ju も !! 


0008H 


アド レス 
機能 
レジ スタ 
































C100 215EC1 
C103 CD5SC1 


C106 CD750F 
C109 CBAF 
C10B FE43 
C10D 280A 
C10F FE48 
C111 2824 
C113 FEAE 
C115 2829 
C117 18ED 


C119 217BC1 
C11C CDSSC1 
C11F 060A 

C121 3E3E 

C123 CD5702 
C126 CD49C1 
C129 10F6 

C12B 2191C1 
C12E CD55C1 
C131 CD42C1 


C134 C30000 


C137 219AC1 
C13A CDSS5C1 
C13D C30800 


C140 21B1C1 
C143 CDSS5C1 
C146 C366S5C 


C149 CS 
C14A OEFF 
C14C 0O6FF 
C14E 10FE 
C150 0D 
C151 20F9 
C153 C1 


0008H 


ホッ ドッ > スター トド 


ホッ ト ・ ス ター ト 
AFBCDEHL 


0 0 6AH 番 地 へ の ジャ ンプ を 行い ます . 
C RT スクリーン , タイ マ 等 , イン タフ ェ ー ス 関係 の イニ シア ライ 
イン タプ リタ の 制御 下 に 入り ます . 


ORG 


START: LD 
CALL 


LOOP: CALL 
RES 
CP 
JR 
CP 
JR 
CP 
JR 
JR 


COLD: LD 
CALL 
LD 

COLD1: LD 
CALL 
CALL 
DJNZ 
LD 
CALL 
CALL 


JP 


HOT: LD 
CALL 
JP 


NOT: LD 
CALL 
JP 


UAIT: PUSH 
LD 

UaAIT1: LD 

MAIT2: DJNZ 
DEC 
JR 
POP 


ーーー Cold ら = モ ar 七 or ho ら モ ar 上 ーー 


0C100H 


HL , PROMPT 
DSPMSG 


0F75H j 1input a character from keyboard 
5,A j Convert into capital ]etter 

トン 

Z,COLD 

の ルレ 

Z,HOT 

2N/ 

Z,NOT 

LOOP 


HL ,MSGC 
DSPMSG 
B,10 
A。 うと 
0257H 
MAIT 

COLD1 

HL , MSGJ 
DSPMSG 
MAIT 


demonstration before cold gtar モ 


0000H ) jugt cold start 


HL , MSGH 
DSPMSG 
0008H j※ho ら モ ar キモ 


HL , MSGN 
DSPMSG 
5C66H ) =y5Stem moni モ or 


いり 8a1 七 Subroutine 


destroys= : 千 lags only 


BC 
C,OFFH 
B,OFFH 
MAIT2 

C 

NZ ,MAIT1 
BC 


C154 C9 RET 
: display message SubCoutine 
H 1nPut ら : top address of message in register hl 
H destroys : register a,f,h,1 
H 
C155 7E DSPMSG iLD A,(HL) 
C156 AZ AND A 
C157 C8 RET Z 
C158 CD5702 CALL 0257H j display a character 
C15B 23 INC HL 
C15C 18F ァ 7 JR DSPMSG 
}) me5 ら Sage 8aC@a 
C15E 636F6C64 PROMPT:DEFB “co1d or hot start (c/h/n) ? ^,0 
C162 206F7220 
C166 686F7420 
C16A 73746172 
C16E 74202863 
C172 2F682F6E 
C176 29203F20 
C17A 00 
C17B 633A6578 MSGC: DEFB “ciexecute cold start ",0 
C17F 65637574 
C183 6520636F 
C187 6C642073 
C18B 74617274 
C18F 2000 
C191 206A7573 MSGJ:i DEFB " just !!740 
C195 74202121 
C199 00 
C19A 683A6578 MSGH: DEFB “hiexecute hot start !!",0 
C19E 65637574 
C1A2 6520686F 
C1A6 74207374 
C1AA 61727420 
C1AE 212100 
C1B1 6E3A646F MSGN: DEFB “nido nothing !! "7,0 
C1B5 206E6F74 
C1B9 68696E6 ァ 7 
C1BD 20212100 
C1C1 END 
\GC100 
cold or hot start (c/h/n) ? nsdo nothing !! 
\GC100 
089 or ho = モ ar 寺 (c/h ノ n) ? hiexecute hot sar て !! 
mon 
%GC100 


co1d or hot star 革 (c/h/n) ? ciexecute cold tar >>>>> う >>> う just !! 


0 ルル SM 、 示 ツ ト ド ュ スタート 


アド レス 0013H 
機 能 | ホッ ト ・ ス ター ト 
レジ スタ AFBCDEHL 





解説 | 006AH 番 地 へ の ジャ ンプ を 行い ます . 

すなわち , CRT エ スクリーン, タイ マ 等 , イン タフ ェ ー ス 関係 の イニ シア ライ 
ズ を 実行 後 。 イン タプ リタ の 制御 下 に 入り ます が , BAS ITC の テキ スト は 保証 
しま 9 





サン プル 


ーーー cold tar or hot = モ ar ーー 


ORG 0C100H 
H 
C100 215EC1 START: LD HL,PROMPT 
C103 CDSSC1 CALL DSPMSG 
H 

C106 CD750F LOOP: CALL OF75H j input a character from keyboard 
C109 CBAF RES 5,A j Convert into capital letter 
C10B FE43 CP DX 
C10D 280A JR Z,COLD 
C10F FE48 CP ^H* 
C111 2824 JR Z,HOT 
C113 FEAE CP ^N^ 
C115 2829 JR Z,NOT 
C117 18ED JR LOOP 
C119 217BC1 COLD: LD HL , MSGC H 
C11C CD5SC1 CALL DSPMSG H 
C11F 060A LD B,10 H 
C121 3E3E COLD1: LD A。 > H 
C123 CD5702 CALL 0257H H 
C126 CD49C1 CALL MAIT j demonstration before cold ta レモ 
C129 10F6 DJNZ COLD1 H 
C12B 2191C1 LD HL,MSGJ H 
C12E CD55C1 CALL DSPMSG 
C131 CD49C1 CALL MAIT H 
C134 C30000 JP 0000H 3 juS モ cold =tar モ 
C137 219AC1 HOT: LD HL,MSGH 
C13A CDS5SC1 CALL DSPMSG 
C13D C31300 JP 0013H ho tar モ 


C140 21B1C1 NOT: LD HL,MSGN 
C143 CD55C1 CALL DSPMSG 
C146 C366SC JP 5C66H j =yStem moni モ or 


ua1 モ gubroutine 


destroys : flags only 


C149 C5 MAIT: PUSH BC 

C14A OEFF LD C,OFFH 
C14C 0O6FF MAIT1: LD B,OFFH 
C14E 10FE UAIT2: DJNZ MAIT2 


C150 0D DEC C 
C151 20F9 JR NZ,MAIT1 
C3S53-.C1 POP BC 
C154 C9 RET 
j display message =ubCoutine 
H 1nPut ら = : top address of message in register h] 
H destroys : register af。h,1 
H 
C155 7E DSPMSG iLD 人 (HL ) 
C156 AZ AND AaA 
C157 C8 RET Z 
C158 CD5702 CALL 0257H : display a character 
C15B 23 INC HL 
C15C 18F?7 JR DSPMSG 
H 
) me55Sage area 
C15E 636F6C64 PROMPT:DEFB “co1d or hot start (c/h/n) ? ^,0 
C162 206F7220 
C166 686F7420 
C16A 73746172 
C16E 74202863 
C172 2F682F6E 
C176 29203F20 
C17A 00 
C17B 633A6578 MSGC: DEFB “ciexecute cold start ",0 
C17F 65637574 
C183 6520636F 
C187 6C642073 
C18B 74617274 
C18F 2000 
C191 206A7573 MSGJ: DEFB "just !!740 
C195 74202121 
C199 00 
C19A 683A6578 MSGH: DEFB “hiexecute hot start !!7,0 
C19E 65637574 
C1A2 6520686F 
C1A6 74207374 
C1AA 61727420 
C1AE 212100 
C1B1 6E3A646F MSGN: DEFB “nido nothing !!7,0 
C1B5 206E6F74 
C1B9 68696E6 ァ 7 
C1BD 20212100 
C1C1 END 
\GC100 
cold or hot start (c/h/n) ? nido nothing !! 
\GC100 
RA or hot star モ (c/h/n) ? hiexecute hot start !! 
k 
mon 
\GC100 


cold or hot start (c/h/n ) ? ciexecute co1d tar モ >>>>>>>>> う just !! 


0018H デバ イス へ の 1 バイ ト 出 力 


アド レス | 0018H 
機 能 | デバ イス へ の 1 バイ ト 出 力 


レジ スタ | ニーーーーーー 一 


4 0 A 6 番地 へ の ジャ ンプ を 行い ます . 

AE お 
へ , デー タ が 0 1H 一 7FH の 場合 に は プリ ンタ へ , デー タ が 8 0 HーFFH の 
和 和 NAS ー ス へ , それ ぞ れ アキ ュ ム レー タ の デー タ 1 バイ ト を 
出力 し ます . 

た だ し , CMT イ ンタ フェ ー ス へ の 出力 を 行う 場合 に は , あら か じ め イ ンタ フ 
ェ ー ス 関係 の イニ シア ライ ズ が 行わ れ て いる こと か が 必要 で す . 

通常 は 。 E B 4 9 HH 番地 に 0 0 HH を 与 ,, CRT ス クリ ー ン へ の 1 文字 出力 ル 

ー チ ン と し て 使用 し ます . 





j ーーー display or PFin 七 ou 七 CharacterS ーー 一 

ORG 0C100H 
C100 AF START: XOR A 
C101 3242EB LD (0EB49H) ,A j Se]lec 七 Cr for outpu モ 
C104 2162C1 LD HL,PROMPT 
C107 CD59C1 CALL DSPMSG 
C10A CD7S50F CALL OF7SH j 1inpu a character from keyboard 
100 FE03 CP 03H 
C10F CA665C JP Z,5C66H j =y5tem moni モ or if stop key 
C112 F5 PUSH AF H 
C113 CD5702 CALL 0257H H 
C116 3EOD LD A,0DH H 
C118 CDS702 CALL 0257H j echo-back and line feed on cr セ 
C11B 3EOA LD A,0AH 3 
C11D CD5702 CALL 0257H 
C120 F1 POP AF H 
C121 FE63 CP 
C123 2829 JR 4 DSPLAY 
C125 FE43 CP 
C127 2825 JR の JeAt 
C129 FE64 CP 
C12B 2821 JR る DSPLAY 
C12D FE44 CP 
C12F 281D JR 2。 DSPLAY 
C131 FE6C CP 
C133 280E JR の LPRINT 
C135 FE4C CP 
C137 280A JR の RG 
C139 FE70 CP 
C13B 2806 JR Z,LPRINT 
C13D FES50 CP AP 
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C13F 2802 JR Z,LPRINT 


H 


C141 18BD JR START 

C143 2179C1 LPRINT:LD HL ,CARE 

C146 CDS59C1 CALL DSPMSG 

C149 3E01 LD Aa,1 

C14B 3249EB LD (0EB49H) ,A 3) Selec PCinter 和 For Ou モ pu モ 


H 
』 Outpu て characterS 5ecion 


C14E 3E20 DSPLAY:LD A,20H 

C150 DF LOOP: RST 18H }※ 〇 u モ pu モ モ to each device 

C151 3C INC A 

C152 FE00 CP 0FFH+1 

C154 20FA JR _ NZ,LOOP 

C156 C3665C 1 JP 5C66H j jump て o syStem moni モ or 
: display mesaage Subroutine 

C159 7E DsPMSG:LD 。A,HL) 

C15A AZ AND A 

C15B C8 RET Z 

C15C CD5702 CALL 0257H j display a character 

C15F 23 INC HL 

C160 18F7 JR DSPMSG 


me らら 896 8PG8a 


で ーー 


C162 63727420 
C166 6F72206C 
C16A 626E652D 
C16E 7072696E 
C172 74657220 
C176 3F2000 
C179 6eC696E65 CARE: DEFB “1ine-printer active !!",OAH,0DH,0 
C17D 2D707269 

C181 6E746572 

C185 20616374 

C189 69766520 

C18D 21210A0D 

C191 00 


ROMPT :DEFB “crt or line-printer ? “^,0 


C192 END 


\GC100 
cr or line-printer ? 1 
1ine-printer active !! 


\GC100 
cr or line-printer ? c 

1" 柏 各 を & 7( )※+。ー。/0123456789: j く =>?7@ABCDEFG 
HIJKLMNOPQRSTUVMUXYZL\]^_ abcdefghi jk 1 mno 
PqFStu ソ ux ッ テ ( て 1) 上 還 較 ーー ゴト ーー| 
ロワ へ ソー 。「 」、・ ヲ ァ ィ ウェ オォ ャ ュ ヨ リー アイ ウエ オカ キク ケ コ サシ ス セ ゾ ソ 
タチ ツテ トナ ニ ヌ ネ ノ 人 ハルヒ フ A ホ マミ ム メ モヤ コ ユ ヨ ラリ ルレ ロ 9 ン "= ニ ト 提 会 
全 ゆ $ ま @ 〇 へ 年 月 日 時 
3 
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002BH プリ ンタ へ の 1 バイ ト 出 力 





アド レス | 002BH 


機能]| プリ ンタ へ の 1 バイ ト 出 力 
区 洲 区 | - っ コニー ニュ ニニ ニニ 

















解 説 | 0D6 0 HH 番地 へ の ジャ ンプ を 行う た め , アキ ュ ム レー タ に 格納 さき 
れ た デー タ 1 バイ ト を プリ ンタ へ 出力 し ます . 














サン プル 
) ーーー 〇 ロモ ロモ meS ら Sage セ 〇 O PL1in モ Gr 一 一 一 
H 
ORG 0C100H 

H 
C100 210EC1 LD HL,MESAGE 
C103 7E LOOP: LD A,(HL) j ge a character 
C104 AZ AND A ) check end mark or not end mark 
C105 CA665C JP Z,5C66H j syStem monitor i 和 † end mark 

H 
C108 CD2B00 CALL 002BH 3※Ou モ pu a character to printer 
C10B 23 INC HL 3) incremen モ 上 pointer 
C10C 18F5 JR LOOP 


me らら =88a96@G 8 ビ FeG8a 


エー < 


C10E 202D2054 
C112 686927320 
C116 69732074 
C11A 6865206D 
C11E 65737361 
C122 67Z652021 
C126 21202D2D 
C12A 0D00 


ESAGE :DEFB “-- This is the message !! --"。ODH,0 


C12C END 


\GC100 


ー-- This is the message !! ーー 
※ 
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PC 一 8001mkII の N 一 BASIC | 


PC-8 0 0 1 の た め に 開発 され た N 一 BA S {IC は , その 機能 , 汎用 性 , 操 
作 性 等 を 高く 評価 され る こと に より , 1983 年 1 0 月 現在 で は PC-880 1 
そし て PCー800 1mkII の た め に イン プリ メン ト さ れ , いずれ も 標準 的 に 
装 き され て いま す . 

NBASIC が PC 一 8 0 0 1 に 搭載 され た も の で ある が , PC-8001 
mk II に 搭載 され た も の で ある の か は , 1 7 5FH 番 地 の 内 容 に よっ て 判断 する 
こと が で きま す . すなわち , 1 7 5FH 番 地 の 内 容 を 調べ . それ か AFH で あれ 
ば PC--800 1mkII に 搭載 され た NBAS1IC, AFH 以 外 (通常 は 8 0 
H) で あれ ば PC 一 80 0 1 また は PC 一 88 0 1 に 搭載 され た N 一 BASIC 
で ある こと が わか り ま す . 

また , NBASIC が PC--8001mkTII 用 イン プリ メン ト を 受け る に あ 
た っ て 変更 され た 主 な 箇所 は つぎ に 述べ る 3 点 で す . 

PC-8001mkII に は バッ クア ッ プ 電池 を 含む カレ ンダ 時 計 (PD19 
9 0C) を 内 蔵 し て いま す . カレ ンダ 時 計 の バッ クア ッ プ 電池 は , 本 体 の 電源 を 
連続 し て 4 0 時間 以上 投入 し て お く と 完全 に 電 され ます . 充電 後 さ ら に 電源 を 
投入 し 続け て も , バッ クア ッ プ 電池 の 機能 を 損なう こと は あり ませ ん . 完全 に 充 
電 さ れ た バッ クア ッ プ 電池 は 電源 の 切断 後 も . 約 2 ヵ月 間 は カレ ンダ 時 計 を 動か 
し 続け ます . バッ クア ッ プ 電池 を 完全 に 充電 し な く て も , 1 日 に 3 0 分 程度 電源 
| を 投入 し て お け ば , カレ ンダ 時 計 は 動き 続け ます . 

PC--8 0 0 1 に は この よう な カレ ング ダ 時計 の バッ クア ッ プ 機能 が 用 意 さ れ て 
いな か っ た た め , 従来 の N 一 BAS IC は ホッ ト ・ ス ター ト 時 に カレ ンダ 時 計 の 
イニ シア ライ ズ (7 9 年 01 月 01 日 00 時 0 0 分 0 0 秒 に 設定 する ) を 行っ て 
いま し た . PC 一 8001mkII お よび PC-ー8801 の N 一 BAS TIC で は , 
カレ ンダ 時 計 の イニ シア ライ ズ を 行わ な いよ うに 変更 され て いま す . 

さら に PC-8001mkII の N 一 BAS IC で は , 内 蔵 の RS 一 2 3 2C チ 
ャ ン ネ ル に 対し て も , INIT INPUT 劣 , PR INT 多 が サポ ー ト され 
て いま す . これ ら の 命令 を 本 体内 蔵 の R S 一 2 3 2 C と チャ ン ネ ル に 対し て 実行 す 
る 場合 に は , ボー ト 番 号 と し て 1 を 指定 し ます . 

キー ボー ド 入 力 に 関す る ルー チン も 若 十 の 変更 が な され , PC 一 8001mk 
II に 新しく 付加 され た TAB キ ー が 有効 に な り ま し た . 
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0035H CRT へ の 1 バイ ト 出 力 


アド レス 


機 


レジ スタ 
解説 


ます が , 


能 





0035H 


CRT へ の 1 バイ ト 出 力 


0 2 5 7H 番 地 へ の ジャ ンプ を 行う た め , アキ ュ ム レー タ に 格納 さ 
れ た デー タ 1 バイ ト を , CRT ス クリ ー ン 上 の 現 カ ー ソ ル 位 置 に 出力 し ます . 
デー タ が 2 0 H 以 上 の 場合 に は 通常 の キャ ラク タ と し て スク リー ン 上 に 表示 し 


2 0 H 未 満 の コン トロ ー ル ・ コ ー ド で あれ ば CRT ス クリ ー ン の クリ ア 


や カー ソル の 移動 等 , コン トロ ー ル ・ コ ー ド と し て の 動作 を 行い ます . 


C100 
C103 


C105 
C108 


C10B 
C10E 
C10F 


C111 
C113 
C114 


C116 
C117 
C119 
C11A 


C11C 
C11F 


C120 
C121 


C124 
C125 
C126 
C127 
C128 


C129 
C12A 
C12B 
C12C 
C12E 


C130 
C132 
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21FBC1 
0E00 


11EDC1 
CDE4C1 


CD72C1 
05 
281F 


1003 
5A 
1630 


7A 
FE22 
7B 
280D 


CDB8C1 
47 


7A 
CDB8C1 


07 
07 
07 
0?7 
80 


77 
23 
0C 
38D2 
18DS 


3E0D 
CD3500 


。 
H 
# ーーー ui] モッ 。 search memory 
H 


ORG 


H 
}】 1npu 革 上 key-words section 
内 
H 


START: LD 
LD 


NMORD: LD 
CALL 


CALL 
DEC 
JR 


DJNZ 
LD 
LD 


H 

TMOCLM:LD 
CP 
LD 
JR 


CALL 
LD 


LD 
CALL 


RLCA 
RLCA 
RLCA 
RLCA 
ADD 


EMORD: LD 
INC 
INC 
JR 
JR 


EIN:  LD 
CALL 


0C100H 


HL ,TABLE 
C,0 


DE ,PROMPT 
DSPMSG 


INCOD 
B 
Z,EIN 
TMOCLM 


AB 


(HL),A 
HL 

C 
C,START 
NuORD 


A,0DH 
0035H 


PrOgram ーーー 


clear keyーuord counter 


display the promp megsage 


end of al 1 input key-uords 


clear msb byte of keyー ぃ ord 


conver モ msb byte into binar ッ 


conver lsb byte into binary 


Store 8 keyー ぃ ord 


incremen モ 上 byte counter 
number of keyーuords overf]ou 


3 ※di ら pay 8a CarFFiage Ceurn code 


C135 
C137 


C13A 
C13B 
C13C 


C13F 
C142 


C145 
C146 
C14?7 
C149 
C14A 


C14C 
C14D 
C14E 


C151 
C152 
C153 


C155 
C156 


C158 
C159 
C15A 


C15C 
C15D 
C1SE 
C15F 


C161 
C162 
C163 
C166 
C16?7 
C16A 
C16C 
C16F 
C170 


C172 
C174 
C177 
C179 


C17A 
C17C 


C17E 
C180 


C182 
C185 


C186 
C188 
C18B 
C18D 


C18E 


3E0A 
CD3500 


0C 
0D 
CA665C 


210000 
11FF7F 


ES 
AZ 
ED52 
E1 
28B4 


C5 
ES 
11FBC1 


1A 
BE 
2007 


0D 
2804 


13 
23 
18F5 


E1 
C1 
23 
20E1 


2B 

7C 
CDC4C1 
7D 
CDC4C1 
3E20 
CD3500 
23 
18D0 


0601 
CD750F 
FEO0D 
C8 


FE7F 
28F4 


FE20 
38F0 


CD3500 
5? 


0602 
CD750F 
FE0D 
C8 


FE08 


LD 
CALL 


INC 
DEC 
JP 


LD 
IFEND: LD 


PUSH 
AND 
SBC 
POP 
JR 


PUSH 
PUSH 
LD 


MLOOP: LD 
CP 
JR 


DEC 
JR 


INC 
INC 
JR 


NXTMEM:POP 
POP 
INC 
JR 


FOUND: DEC 


CALL 
LD 


H 

INCOD1 iLD 
CALL 
CP 
RET 


CP 


A,0AH 
0035H 


C 
C 
Z,5C66H 


search main section 


HL ,0000H 
DE ,07FFFH 


HL 

A 

HL,DE 
HL 
Z,START 


BC 
HL 
DE , TABLE 


A,(DE ) 
(HL ) 
NZ , NXTMEM 


C 
Z,NXTMEM 


DE 
HL 
MLOOP 


HL 
BC 
HL 
NZ , IFEND 


HL 

A,H 
DSPACC 
AL 
DSPACI 
AA 
0035H 
HL 
IFEND 


inpu a key-uord subroutine 


jXdisplay a line feed code 


ystem monitor i 千 no key-uord 


se top address of search area 
set end address of search area 


reset carry flag 


end of search 


nex memory iT no same 


nex 革 memory if end of key-uord 


3j display the msb byte of address 
j display the lsb byte of address 


?Xdisplay a space 


Outpu セ ts  : inpu セ character in register de 


nput clumn plus one in register c 


B,1 
0F7S5H 
0DH 

Z 


7FH 
Z, INCOD 


20H 
C, INCOD 


0035H 
D,A 


B,2 


0F75H 
0DH 
Z 


08H 


destroy8 : register a, 和 fb。d,e 


3 input a character from keyboard 


j end of inpu if return key 


3』 cancel contro] code 


3 %※echo-back the input character 
3 Store 1 上 in register d 


3』 inpu て a character from keyboard 


3 end of input if return key 
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C190 2804 JR  Z,DEL1 


C192 FE7F CP 7FH 

C194 2005 JR NZ,INCOD2 

C196 CDDBC1 DEL1: CALL BACK ) display a back-space 

C199 18D7 JR INCOD 

C19B FE20 INCOD2:CP 20H 

C19D 38E7 JR C, INCOD1 j cancel contro]l code 

C19F CD3500 ( CALL 0035H : Xecho-back the input charac セ er 
C1A2 SF LD E,A 

C1A3 0603 。 INCOD3:LD B,3 

C1A5 CD750F CALL OF7S5H ) input a character from keyboard 
C1A8 FEOD CP 0ODH 

C1AA C8 RET Z j end of input if return key 
C1AB FEO8 6 CP 08H 

C1AD 2804 JR  Z,DEL2 

C1AF FE7F CP 7FH 

C1B1 20FO JR _ NZ,INCOD3 

C1B3 CDDBC1 DEL2: CALL BACK j display a back-space 

C1B6 18CE JR INCOD1 


convert hexa code into binary code ubroutine 


H 
H 
日 
H 1nput ら : character code in accumul ator 
H outputs 。 : binary code in accumul ator 
H destroyS : reg1 ら Ster a。 下 
H 
C1B8 FE3A HEXBIN:CP ^@“+1 
C1BA 3805 JR  C,HEXBI1 
C1BC E60F AND OFH 
C1BE C609 ADD ^A,2 
C1C0 C9 RET 
C1C1 E60F HEXBI1:AND 0FH 
C1C3 C9 RET 
H 
j display accumulator hexa decimal ubroutine 
H 
H destroy ョ : register a, 生 5 
C1C4 47 DSPaCCiLD  B,A 
C1C5 OF RRCA 
C1C6 OF RRCA 
C1CZ7 OF RRCA 
C1C8 OF RRCA 
C1C9 CDCDC1 CALL HALF 
C1CC 78 LD  A,B 
C1CD Ee0F HALF: AND OFH 
C1CF FEOA CP 10 
C1D1 3802 JR  C,NUMBER 
C1D3 C607 ADD  A,7 
C1D5 Ce630 NUMBER:ADD A。 07" 
C1D7 CD3S00 CALL 0035H j※display a character 
C1DA C9 RET 
j display a back-space ら SubDCOu ュ ine 
H 
H destroyS : regi5ter a。 千 
C1DB DS BACK: PUSH DE 
C1DC 11F7C1 LD DE , BAKSPC 
C1DF CDE4C1 CALL DSPMSG 
C1E2 D1 POP DE 
C1E3 C9 RET 


display mesSage SubCOu モ ine 
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1nputs : top address of message in register de 
de モ Coy5= : register af。d,e 


H 
DSPMSGiLD  A,(DE) 
AND AaA 
RET Z 
CALL 0035H j※display a character 
INC DE 
JR DSPMSG 


meG=38g6G 8 ビュ a 


で ・・ < 


ROMPT:DEFB 0DH,0AH,“code - “,0 


BAKSPCiDEFB 1DH,′ “,1DH,0 


) key-uord table 
H 
T 


ABLE: END 


0C6D 1540 2306 27E9 28B6 290A 295F 
516C 5335 5D1B 5D68 5D74 6405 66CF 


762B 7859 78D0O 796F 7A87 


C1E4 1A 

C1ES A7 

C1E6 C8 

C1E7 CD3500 
C1EA 13 

C1EB 18F ァ 7 

C1ED 0D0A636F 
C1F1 6465202D 
C1FS 2000 

C1F7 1D201D00 
C1FB 

%GC100 

code - "N 

code - 『'E 

code - "C 

code 一 

1838 6108 6152 
code - "0 

code - "k 

code - fc 

code - 0d 

code - 0a 

code - 00 

code 一 

3B60 

code 一 21 

code - 00 

code - 00 

code 一 

047A 

5055 

6BFD 

code - 0 

code - 0 

code - 0 

code - 0 

code - 0 

code - 0 

code - 0 

code - 0 

code - 0 

code - 0 

code 一 

0046 0047 0048 
004E 004F 0050 
0056 0057 0058 
005E 005F 0060 
3A83 3A84 3A85 
3AB6 3AB7 3AC5 
3AE6 3AE7 3AF ァ 7 
7FDC 7FDD 7FDE 
7FE4 7FE5 7FE6 
7FEC 7FED 7FEE 
7FF4 7FF5 7FF6 
code 一 


3 


0049 004A 004B 004C 004D 
0051 0052 0053 0054 0055 
0059 005A 005B 005C 005D 
3A71 3A72 3A73 3A74 3A82 
3A86 3A87 3A96 3A97 3AA7 
3AC6 3AC7 3AD6 3AD7 3AE5 
3B16 3B17 3B18 444B 7FDB 
7FDF 7FEO 7FE1 7FE2 7FE3 
7FE7 7FEB 7FE2 7FEA 7FEB 
7FEF 7FFO 7FF1 7FF2 7FF3 
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006AH ホッ ト ・ ス ター ト 





アド レス 006AH 
機 能 | ホッ ト ・ ス ター ト 
レジ スタ | AFBCDEHL 











解説 | CRT ス クリ ー ン , タイ マ 等 , イン タフ ェ ー ス 関係 の イニ シア ライ 
ズ を 実行 後 , イン タプ ブリ ンタ の 制御 下 に 入り ます . 
た だ し , BAS IC の テキ スト は 保証 し ます . 


j ーー- cold =tart or ho ar 一 
ORG 0C100H 

C100 215EC1 START: LD HL,PROMPT 
C103 CDS5C1 CALL DSPMSG 

H 
C106 CD750F LOOP: CALL OF75H j input a character from keyboard 
C109 CBAF RES 5,A j Conver into capital letter 
C10B FE43 CP 
C10D 280A JR  Z,COLD 
C10F FE48 CP ら HS 
C111 2824 JR Z,HOT 
C113 FEAE CP *N* 
C115 2829 JR 。 Z,NOT 
C117 18ED JR LOOP 

H 
C119 217BC1 COLDI LD HL,MSGC H 
C11C CD55C1 CALL DSPMSG H 
C11F 060A LD  B,10 H 
C121 3E3E COLD1: LD Az/> グ H 
C123 CD5702 CALL 0257H H 
C126 CD49C1 CALL MAIT ) demonstration before cold 5=tar セ 
C129 10F6 DJNZ COLD1 H 
C12B 2191C1 LD HL,MSGJ H 
C12E CD5SC1 CALL DSPMSG H 
C131 CD49C1 CALL MAIT 5 
C134 C30000 「 JP 0000H ) just cold star も 

H 
C137 219AC1 HOT: LD HL,MSGH 
C13A CD5S5C1 CALL DSPMSG 
C13D C36A00 JP 006AH 3 ※ho = セキ ar モ 


C140 21B1C1 NOT: LD HL,MSGN 
C143 CDSSC1 CALL DSPMSG 
C146 C366SC JP 5C66H ) By5Stem moni1 セ or 


H 
3 8a1 七 SubCoutine 
す 
5 


destroys : flags only 


C149 C5 UAIT: PUSH BC 

C14A OEFF LD C,OFFH 
C14C 06FF MAIT1: LD B,OFFH 
C14E 10FE MAIT2: DJNZ MAIT2 
C150 0D DEC C 

C151 20F9 JR NZ,MAIT1 
C153 C1 POP BC 
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C154 C9 RET 


display message Subroutine 


H 

H 

H 

H H 

H destroy ら 8 : regi=ter ョ 。 千 ,h, 1 
H 

D 


1nPu セ 5 top address of message in register hl 
C155 7E SPMSG:LD A,(HL) 
C156 AZ AND A 
C157 C8 RET Z 
C158 CD5702 CALL 0257H j display a character 
C15B 23 INC HL 
C15C 18F7 JR DSPMSG 


me らら = ら 89@G 8FeGa 


H 
H 
C15E 636F6C64 PROMPT:DEFB "cold or hot start (c/h/n) ? ^,0 
C162 206F7220 
C166 686F7420 
C16A 73746172 
C16E 74202863 
C172 2F682F6E 
C176 29203F20 
C17A 00 
C17B 633A6578 MSGC: DEFB "ciexecute cold start 「,0 
C17F 65637574 
C183 6520636F 
C187 6C642073 
C18B 74617274 
C18F 2000 
C191 206A7573 MSGJ: DEFB "just !!740 
C195 74202121 
C199 00 
C19A 683A6578 MSGH: DEFB “hiexecute hot start !!7,0 
C19E 65637574 
C1A2 6520686F 
C1A6 74207374 
C1AA 61727420 
C1AE 212100 
C1B1 6E3A646F MSGN: DEFB “nido nothing !! 7,0 
C1BS 206E6F74 
C1B9 68696E67 
C1BD 20212100 


C1C1 END 


%GC100 

cold or hot start (c/h/n) ? nido nothing !! 

\GC100 

cold or hot star モ (c/h/n) ? hiexecute hot star モ !! 

0k 

mon 

%GC100 

cold or hot start (c/h/n) ? ciexecute cold start >>>>>>>>>> just !! 
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0081H BASIC の コマ ンド 待ち 





アド レス | 0081H 
機 能 | BAS1C の コマ ンド 待ち 
レジ スタ | AFBCDEHL 














解説 | イン タフ ェ ー ス 関係 の イニ シア ライ ズ 等 を 全く 行わ ず に , 現在 の カ 
ー ソ ル ・ ポ ボ ポジション か ら プ ロン プ ト ・ メ ッ セ ー ジ “OK" を 表示 後 . BASIC の 
スク リー ン ・ エ ディ ッ ト ・ モ ー ド に 入り ます . 

た だ し , BAS IC の テキ スト は 保証 し ます . 

0 0 8 1 H 番 地 か ら F 1 B 0 H 番 地 へ の フッ ク が 用 意 き れ て いま す . 











サン プル 








H 
j ーーー Selec each Star モ ーー 一 
H 


ORG 0C100H 
C100 216BC1 START: LD HL,PROMPT 
C103 CD62C1 CALL DSPMSG 

H 
C106 CD750F LOOP: CALL OF75H j 1input a character from keyboard 
C109 CBAF RES 5,A j Convert into capital ]etter 
C10B FE43 CP BS 
C10D 280E JR Z,COLD 
C10F FE48 CP ^H" 
C111 2828 JR Z,HOT 
C113 FE42 CP 7B* 
C115 282D JR  Z,BAS 
C117 FE4E CP ^N* 
C119 2832 JR Z,NOT 
C11B 18E9 JR LOOP 
H 

C11D 2187C1 COLD: LD HL,MSGC H 
C120 CD62C1 CALL DSPMSG H 
C123 060A LD  B,10 H 
C125 3E3E COLD1: LD AA > 3 
C127 CD5702 CALL 0257H H 
C12A CDS6C1 CALL MAIT j demona モ ration before cold = モ ar モ 
C12D 10F6 DJNZ COLD1 H 
C12F 219DC1 LD HL , MSGJ H 
C132 CD62C1 CALL DSPMSG H 
C135 CD56C1 CALL MAIT H 
C138 C30000 JP 0000H 3 just cold ar も 
C13B 21A6C1 HOT: LD HL,MSGH 
C13E CD62C1 CALL DSPMSG 
C141 C36A00 JP 006AH 3 hot = モ ar セ 
C144 21BDC1 BAS: LD HL,MSGB 
C147 CD62C1 CALL DSPMSG 
C14A C38100 JP 0081H jXunder the basic 
C14D 21D0C1 NOT: LD HL , MSGN 
C150 CD62C1 CALL DSPMSG 
C153 C3665C JP 5C66H j By5Stem moni1 モ or 


j り a1 モ Subroutine 
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H 
1 destroyS : 


WAIT: 


flags only 


C156 C5 PUSH BC 
C157 OEFF LD C,OFFH 
C159 06FF MAIT1: LD  B,OFFH 
C15B 10FE UAIT2: DJNZ MAIT2 
C15D 0D DEC C 
C1SE 20F9 JR NZ,MAIT1 
C160 C1 POP BC 
C161 C9 RET 
H 
j display mesS=age SubFoutine 
# 1nput ら 5 : top address of message in register hl 
き destroys : register af,h,1 
H 
C162 7E DSPMSG:LD AA,(HL) 
C163 AZ AND A 
C164 C8 RET Z 
C165 CD5702 CALL 0257H j display a character 
C168 23 INC HL 
C169 18F?7 JR DSPMSG 
) meS ら 8a9G 8a じ Ga 
C16B 65616368 PROMPT:DEFB “each selection (c/h/b/n) ? ^,0 
C16F 2073656C 
C173 65637469 
C177 6F6E2028 
C17B 632F682F 
C17F 622F6E29 
C183 203F2000 
C187 633A6578 MSGC: DEFB “c:execute cold start 「,0 
C18B 65637574 
C18F 6520636F 
C193 6C642073 
C197 74617274 
C19B 2000 
C19D 206A7573 MSGJ: DEFB " just !!7.0 
C1A1 74202121 
C1A5 00 
C1A6 683A6578 MSGH: DEFB “hiexecute hot start !!7,0 
C1AA 65637574 
C1AE 6520686F 
C1B2 74207374 
C1B6 61727420 
C1BA 212100 
C1BD 623A6A75 MSGB: DEFB “bi:jump to basic !!7,0 
C1C1 6D702074 
C1C5 6F206261 
C1C9 73696320 
C1CD 212100 
C1D0 6E3A646F MSGN: DEFB “nido nothing !!7。0 
C1D4 206E6F74 
C1D8 68696E67Z 
C1DC 20212100 
C1E0 END 
\GC100 


each selection (c/h/b/n ) 
%GC100 

each selection (c/h/b/n ) 
0k 

moOn 

\GC100 

each selection (c/h/b/n ) 
0k 

moOn 

※5C100 

each selection (c/h/b/n ) 


nido nothing !! 


bi: jump to basic !! 


hiexecute hot start !! 


c:execute cold = モ tar モ >>>>>>>>>> just !! 
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0099H PC 一 8 0 31 と の 1 セクタ 入出 力 


アド レス | 0099H 
機 能 | PC 一 8 0 3 1 と の 1 セク タス 入出 力 
レジ スタ | ーー ニー デーーー 














解説 | ミニ ・ フ ロッ ピ ・ デ ィ ス ク ・ ユ ニッ ト (PC-8 0 3 1, PC-8 
031 一 2W, PC 一 80S3 1 相当) と の 入出 力 を 行う た め の 最 も 基本 的 で か 
つっ 有効 な シス テム ・ サ ブ プルー チン で , PC 一 8 0 0 1mkII の メモ リ 上 か ら ミ ニ ・ 
フロ ッ ピ へ の 書き 込み , 送 に ミニ ・ フ ロッ ピ か ら メ モリ 上 へ の 読み 込み そし て 
デー タ の チェ ッ ク を 行う こと が で きま す . 
シス テム ・ サ ブルー チン の 呼び 出し に 際 し て は , 次 に 示す 入力 パラ メー タ を 正 
確 に 与え を る こと が 必要 で す . 
EDC5H 番 地 一 0 
EDC6H 番 地 一 0 か ら 始ま る ドラ イブ 番号 
レジ スタ B 一 0 か ら 始 まる トラ ッ ク 番 号 
レジ スタ C 一 1 か ら 始 まる セク タ 番 号 
アキ ュ ム レー ター 入出 力 実 行 セ クタ 数 
レジ スタ DE ーー デー タ 格 納 メ モリ の 開始 アド レス 
書き 込み , 読み 出し . チェ ッ ク の 指定 は フラ グ に よっ て 行い ます . 
書き 込み の 場合 ,、 キャリ ・ フ ラグ (CY) を モット し ます . 
読み 出し の 場合 、 ゼロ ・ フ ラグ (Z) を リセ ッ ト し ます ., 
チェ ッ ク の 場合 、 ゼロ ・ フ ラグ (Z) を セッ ト し ます . 
エラ ー が 発生 し た 場合 に は キャ リ ・ フ ラグ (CY) を セッ ト し て , そう で な け 
れ ば キャ リ ・ フ ラグ を リセ ッ ト し て も どり ます . さら に , エラ ー の 発生 ご と に E 
DC 5 HH 番地 の 値 を イン クリ メン ト し , エラ ー が 1 0 回 を 越え た 時 点 で , "Disk 
1 ノ /O error" エ ラー が 発生 し . イン タプ リタ の 制御 下 に 入り ます . 
また , 指定 し た ドラ イブ が 両面 仕様 の 場合 , トラ ッ ク 番 号 が 偶数 の 時 に は 表面 
を アク セス し , トラ ッ ク 番 号 が 奇数 の 時 に は 裏面 を アク セ モス する た め , サー フェ 
イス の 指定 は 必要 あり ませ ん . 
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サン プル 


C100 
C103 
C106 
C109 
C10A 


C10D 
C110 
C113 
C116 


C117 
C11A 
C11D 
C120 


C121 
C124 
C127 
C12A 


C12D 
C12F 
C131 
C133 
C135 
C137 
C139 
C13B 
C13D 
C13F 
C141 
C143 
C145 


C147 
C149 
C14C 
C14E 
C151 
C154 
C156 


C159 
C15A 


C15C 
C15D 
C1SE 


C160 
C161 


C163 


C166 
C169 


C16C 
C16E 


C170 





2191C1 
CD88C1 
CD6CC1 
3D 

32C6ED 


219DC1 
CD88C1 
CD6CC1 
47 


21A9C1 
CD88C1 
CD6CC1 
4F 


21B5C1 
CD88C1 
CD7S50F 
CDS702 


FE77 
2828 
FE5?7 
2824 
FE72 
2823 
FE52 
281F 
FE76 
281F 
FES56 
281B 
181C 


3E00 
32C5ED 
3E01 
1100C2 
CD2900 
380D 
C3665C 


37 
18EB 


AF 
3C 
18E ァ 7 


AF 
18E4 


21D0C1 


CD88C1 
C3665C 


1E00 
3E30 


FS 


ーーー control mini 和 floppy disk 


Se モ drive number 


ョ et track number 


et sector number 


input a character from keyboard 
echo-back a character 


et top address of buffer 
Just control disk 


jump to system monitor 


j Bet carry flag 


し e8e モ ca ヒビ ッ flag 
rese モ zero 千 ]ag 


reSe carry and se zero 千 ]ag 


ex1 七 ぃ ith error 


: 1nPu モ number in accumul aor 


initialize inpu モ number 


ORG 0C100H 
LD HL,MSGDR 
CALL DSPMSG 
CALL INDEC 
DEC A 
LD て OEDCeH),A : 
LD HL,MSGTR 
CALL DSPMSG 
CALL INDEC 
LD  B,A 1 
8 LD HL,MSGSEC 
CALL DSPMSG 
CALL INDEC 
LD C,A : 
6 LD HL,MSGuRV 
CALL DSPMSG 
CALL OF75H ) 
CALL 0257H 1 
CP 7 
JR 。 Z,URITE 
CPM7 
JR 。 Z,URITE 
CP F7 
JR 。Z,READ 
CP R7 
JR 2Z,READ 
CP いく 
JR 。Z,VERIFY 
CcP V7 
JR 2Z,VERIFY 
JR ERROR 
CTRLDS:LD Aa,0 
LD  〈OEDC5H),A 
LD  A,1 
LD DE,BUFFER : 
CALL 0029H 
JR  C,ERROR 
JP 5C6eH 1 
URITE: SCF ) 
JR CTRLDS 
READ: XOR A : 
INC AaA H 
JR CTRLDS 
VERIFY:XOR A ) 
JR CTRLDS 
H 
ERROR: LD "HL,MSGERR : 
CALL DSPMSG : 
JP 5CeeH ) 
j input decima]l number subroutine 
3 6 
H Output5 。 * 
H destroy ョ : register afT,e 
INDEC: LD E,O 1 
LD A. 07 H 


TNLOOP:PUSH AF 1 


iniial ize inPu モ t characer 
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C171 
C172 
C173 
C174 
C175 
C176 
C177 
C178 
C17A 
C17B 


C17C 
C17F 


C182 
C184 


C186 
C187 


C188 
C189 
C18A 
C18B 
C18E 
C18F 


C191 
C195 
C199 
C19D 
C1A1 
C1A5 
C1A9 
C1AD 
C1B1 
C1B5 
C1B9 
C1BD 
C1C1 
C1CS 
C1C9 
C1CD 
C1D0 
C1D4 
C1D8 


C200 
C1DC 
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7B 
8?7 
8?7 
83 
87 
5F 
F1 
D630 
83 
SF 


CD750F 
CDS5702 


FE0D 
20EA 


7B 
C9 


7E 
AZ 
C8 
CDS5702 


18F7 


0D0A6472 
69766520 
203F2000 
0D0A7472 
61636B20 
203F2000 
000A7365 
63746F72 
203F2000 
0D0A7772 
6974652C 
20726561 
64206F72 
20766572 
69667920 
3F 2000 

0D0A6572 
726F7220 
21210700 


e <ー- e ※ 10 + inpu モ number 


input a character from keyboard 
echo-back a character 


LD ALE 
ADD A,A 
ADD A,A 
ADD AE 
ADD A,A 
LD  E,A 
POP AF 
SUB 07 
ADD A,E 
LD E,A 
CALL OF75H 
CaALL 0257H 
CP 0ODH 
JR NZ,INLOOP 
LD ALE 
RET 


display message subroutine 


5 

DSPMSGiLD 。A,(HL) 
AND A 
RET Z 
CALL 0257H 
INC HL 
JR DSPMSG 


me ヨ 8a9 ど G 8aPeG8a 


ーー 


SGDR: DEFB 0DH,0AH, 


MSGTR: DEFB 0DH,0AH, ^ 


MSGSEC:DEFB 0DH,0AH, “ 


MSGMRV:DEFB 0DH,0AH, ^ 


MSGERR :DEFB 0DH,0AH,“ 


H 
j equate buffer area 


H 
BUFFER:EQU 0C200H 
H 


END 


j display a character 


7drive ? 7,0 


track ? “,0 
sector ? ^,0 


urite, read or verify ? “,0 


erFroF !1 7 。07H,0 


%GC100 


drive 
track 


? 1 
? 0 


ョ ector ? 1 
ぃ に 1te 。 Fead or veri 和 fy ? 


\DC200 ,C2FF 


C200 
C210 
C220 
C230 
C240 
C250 
C260 
C270 
C280 
C290 
C2A0 
C2B0 
C2C0 
C2D0 
C2E0 
C2F0 


3E 
CD 
20 
38 
20 
3E 
82 
CD 
01 
CO 
FA 
01 
37 
29 
01 
CD 


\GC100 


drive 


0B 
83 
0D 
C0 
42 
EA 
57 
21 
CD 
0D 
3E 
20 
C9 
00 
03 
49 


? 2 


track ? 0 
sector ? 1 
ぃ rite, read or verify ? ヒ 


\DC200 ,C2FF 


C200 
C210 
C220 
C230 
C240 
C250 
C260 
C270 
C280 
C290 
C2A0 
C2B0 
C2C0 
C2D0 
C2E0 
C2F0 


21 
B7 
D1 
15 
84 
23 
DC 
AE 
F1 
FF 
9F 
74 
80 
8C 
98 
BF 


\6C100 


drive 
track 


00 
20 
E1 
28 
C3 
4E 
EC 
ED 
EC 
ED 
ED 
EE 
EE 
EE 
EE 
EE 


引 
? 0 


Sector ? 1 
ぃ rite, read or verify ? x 


GOC 


CD 
01 
3E 
CD 
41 
22 
F1 
01 
87 
20 
0A 
FA 
11 
3E 
00 
C0 


84 
04 
30 
0B 
00 
23 
AC 
SE 
6F 
76 
D8 
D8 
CC 
56 
36 
23 


7C 
3E 
17 
ED 
53 
FE 
B?7 
F1 
CO 
FA 
D3 
DB 
00 
C3 
AF 
38 


AF 
06 
08 
0C 
88 
7E 
D9 
D9 
D9 
CE 
ED 
ED 
DA 
D2 
DS 
DA 


01 
01 
CD 
52 
49 
10 
C9 
F5 
C3 
10 
FF 
FC 
C1 
32 
32 
C? 


32 
02 
34 
24 
22 
23 
C4 
E8 
F4 
BB 
A2 
77 
83 
8F 
2B 
C2 


3E 
CD 
7C 
C3 
43 
30 
F1 
47 
C2 
F6 
DB 
12 
01 
B3 
C5 
04 


B4 
1E 
B4 
7B 
E8 
EB 
EC 
EC 
EC 
EC 
ED 
EE 
EE 
EE 
EE 
EE 


07 
83 
01 
BC 
0D 
02 
37 
CA 
00 
C9 
FC 
13 
02 
F1 
ED 
04 


EC 
1B 
EC 
B9 
EZ 
36 
A2 
A4 
82 
4B 
D8 
D8 
F6 
26 
49 
E? 


CD 
01 
3E 
C0 
0A 
E1 
C9 
C2 
3E 
3E 
12 
3E 
00 
21 
CD 
O0E 


01 
AF 
FE 
20 
C9 
C3 
DO 
D4 
D9 
C3 
ED 
ED 
DA 
CE 
D3 
D9 


83 
CD 
OF 
4E 
00 
FS 
F1 
00 
12 
0B 
13 
0C 
AF 
68 
49 
01 


02 
3C 
03 
DE 
06 
23 
C1 
B1 
6F 
D3 
A2 
7A 
86 
22 
2E 
CS 


01 
E9 
CD 
4F 
F5 
F1 
F1 
CD 
CD 
D3 
3E 
D3 
32 
C0 
CO 
CD 


00 
ES 
20 
04 
28 
71 
EC 
ED 
ED 
EC 
ED 
EE 
EE 
EE 
EE 
EE 


3E 
01 
83 
2E 
79 
B? 
F5 
5A 
7C 
FF 
0D 
FF 
C5 
22 
38 
49 


11 
DS 
EC 
OE 
21 
23 
DE 
4A 
FE 
D8 
A5 
E0 
A5 
8A 
44 
A2 


EF 
2F 
01 
20 
2F 
CD 
32 
01 
01 
DB 
D3 
C9 
ED 
B4 
DO 
C0 


11 
C5 
C9 
01 
60 
し NG 
D9 
CE 
CF 
ED 
ED 
DB 
DE 
DO 
D3 
DE 


CD 
Ee 
C3 
44 
3C 
99 
B ゥ 
Ee 
OE 
FE 
FF 
AF 
3E 
F1 
04 
38 


2D 
CD 
AF 
18 
C0 
EB 
DO 
EE 
AB 
D6 
A8 
7D 
89 
25 
BC 
C8 


83 
F0 
C2 
49 
C6 
00 
ED 
40 
80 
E6 
DB 
32 
01 
11 
04 
BE 


3A 
9A 
32 
D9 
SE 
10 
EC 
EC 
ED 
EC 
ED 
EE 
EE 
EE 
EE 
EE 


01 
FE 
CO 
53 
11 
38 
3E 
CA 
CD 
01 
FE 
CZ 
B? 
00 
OE 
11 


5D 
36 
B4 
CD 
23 
EE 
14 
EB 
E1 
D8 
D8 
22 
6D 
08 
00 
EC 


AF 
10 
21 
4B 
FS 
05 
02 
68 
29? 
28 
E6 
ED 
CD 
C2 
01 
A5 


EF 
C1 
EC 
00 
56 
C9 
D4 
D4 
CE 
ED 
ED 
C2 
DB 
DS 
C1 
C2 
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00CBH 拡張 シス テム ・ チ ェ ッ ク 





アド レス | 00CBH 
機能 | 拡張 シス テム ・ チ ェ ッ ク 


[レジ ネタ ] AF-ーーーーー 


解 " 説 | ディ スク ・ ユ ニッ ト 等 の 拡張 シス テム が 接続 され て いれ ば ゼロ ・ フ 
ラグ (Z) を リセ モット し て , 接続 され て いな けれ ば ゼロ ・ フ ラグ (Z) を セッ ト 
し て も どり ます . 

拡張 シス テム 接続 の 有無 は , 入力 ポー ト 4 0 H 番 地 か ら の 入力 デー タ に よっ て 
判断 し ます . 


























サン プル 
j ーーー check extended =y5S モ em or no ーー 
ORG 0C100H 
C100 CDCB00 CALL 00CBH j※check extended =ystem or no 
C103 2809 JR Z,NOTEXT 
C105 2120C1 YESEXT:LD HL , MSGYES H 
C108 CD17C1 CALL DSPNMSG j ye extended sy ョ tem 
C10B C3665C JP 5C66H 


C10E 2137C1 NOTEXT:LD HL , MSGNOT 
C111 CD17C1 3 CALL DSPMSG 
C114 C3665C JP 5C66H 


not extended system 


display message Subroutine 


ロー ・・ 


C117 7E SPMSGiLD  A,(HL) 

C118 AZ AND A 

C119 C8 RET Z 

C11A CD5702 CALL 0257H j display a character 
C11D 23 INC HL 

C11E 18F ァ 7 ・ JR DSPMSG 


me=889@G aPe8a 


ーー・ 


C120 79657320 
C124 65787465 
C128 6E646564 
C12C 20737973 
C130 74656D20 
C134 212100 
C137 6E6F7420 MSGNOT:DEFB “not extended system !!7,0 
C13B 65787465 

C13F 6E646564 

C143 20737973 

C147 74656D20 

C14B 212100 


SGYES:DEFB "yes extended system !!",0 


C14E END 


*GC100 


yes extended system !! 
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0257H CRT へ の 1 バイ ト 出 力 





アド レス | 0257H 


機 能 | CRT へ の 1 バイ ト 出 力 
レジ スタ | ーーーーーー 一 




















解 " 説 | アキ ュ ム レー タ に 格納 され た デー タ 1 バイ ト を , CR エス クリ ー ン 
上 の 現 カ ー ソ ル 位 置 に 出力 し ます . 

デー タ が 2 0 H 以 上 の 場合 に は 通常 の キャ ラク タ と し て スク リー ン 上 に 表示 し 
ます が , 2 0 H 未 満 の コン トロ ー ル ・ コ ー ド で あれ ば CRT ス クリ ー ン の クリ ア 
や カー ソル の 移動 等 , コン トロ ー ル ・ コ ー ド と し て の 動作 を 行い ます . 


サン プル 





ーーー display characterS ーー 


ORG 0C100H 
C100 3E20 LD Az20H 
C102 CD5702 LOOP: CALL 0257H 3 ※O 〇 upu モ a character セ o crt screen 
C105 3C INC A 
C106 FE0O0 CP OFFH+1 
C108 20F8 JR NZ ,LOOP 
C10A C3665C JP 5C66H 3 jump モ o ytem moni モ or 
C10D - END 
\5C100 


1" 寺 第 2& 7( )※+。ー./0123456789: : く =>?@ABCDEFG 
HIJKLMNOPQRSTUVUXYZ[\]^_ abcdefghi jk 1 mno 
PqrB モ uv ゅ xy て 1 うー 上 目 還 置 ーー トー| | 
ロロ へ ソー 。「 」、・ ヲ ァ ィ ウェ オォ ャ ュ ョ リー アイ ウエ オカ キク ケ コ サシ ス セ ソ 
タチ リツ テト ナニ ヌ ネ ノバ ル ヒ ブフ へ ホ マミ ム メ モヤ ユ ヨ ラリ ルレ ロワ 9 ン "" ニ F 相 会 マ 
全 科 @ ま の 〇 へ ツイ 相生 月 日 只今 徐 
※ 
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0 2D7H カー ソル 移動 と CRT へ の 1 バイ ト 出 力 


アド レス | 02D7H 


機 能 | カー ソル 移動 と CRT へ の 1 バイ ト 出 力 
レジ スタ | AFBCDEHL 























解説 | レジ スタ H に 格納 され た 1 一 8 0 の 横 座標 . お よび レジ スタ ル L に 格 
納 さ れ た 1 一 2 5 の 縦 座標 . に よっ て 指定 する CRT ス クリ ー ン 上 の 指定 位置 に 
カー ソル を 移動 後 . アキ ュ ム レー タ に 格納 され た デー タ 1 バイ ト を , CR スク 
リー ン 上 の カー ソル 位置 に 出力 し ます . 

デー タ が 2 0 H 以 上 の 場合 に は 通常 の キャ ラク タ と し て スク リー ン 上 に 表示 し 
ます が , 2 0 H 森 満 の コン トロ ー ル ・ コ ー ド で あれ ば CRT ス クリーン の クリ ア 
や カー ソル の 移動 等 、 コ ント ロー ル ・ コ ー ド と し て の 動作 を 行い ます . 








サン プル 








C100 


C102 
C104 
C105 
C106 


C108 
C109 
C10A 
C10C 
C10F 
C112 
C113 
C114 
C115 


C117 
C118 
C119 
C11B 


C11D 


C120 
C122 
C123 
C125 


C126 


2E04 


3E50 
25 
67 
0630 


C5 

ES 
3EDB 
CDD702 
CD20C1 
E1 

C1 

25 
10F1 


2C 
7D 
FE1A 
20E5 


C3665C 


OEFF 


20FD 
C9 


\GC100 


※ 


H 
LOOPY:. 


LOOPX: 


AIT: 
UAIT1i 


ORG 0C100H 
LD 。 L,4 

LD A,80 
SUB し 

LD  H,A 

LD  B,30H 
PUSH BC 
PUSH HL 

LD AaA。 ロ 7 
CALL 02D7H 
CALL MAIT 
POP HL 
POP BC 
DEC H 
DJNZ LOOPX 
INC L 

LD ALL 

CP 25+ 1 
JR NZ,LOOPY 
JP 5C6eH 


いり a1 七 BubFoutine 


LD C,OFFH 
DEC C 

JR NZ,MAIT1 
RET 

END 


H 


ーーー display =tepS on tex 七 Screen 一 


apPPoin モ coordinate ッ 


apPoint coordinate x 


apPoin a character 
※move Cursor and display 
ai a momen セ 


decremen coordinate x 


increment coordinate y 


Jump to system monitor 


destroy5S : register c only 


HHHDHHHDDHHHHHHHHHHHHHHHHHHHHHHDHUHHUHUHHnH ロ HU 
HHHHUHHHHHHHHHHHHHHHHHHHHHHHHHHUHHHUHHHHHHHHHI ロ ロ 
HHHHHHHHHHHHHHHHHHHHHHUUUHUUHUHHOHHHHOHHHHHHH ロ nn 
HHHHHHUHHHHHHHHHHHHHHHHHHHHHHHHHUUHHHHHHHHDUUD ロ ロ 
HHHHHHHDHHUHHHHHHHHHHHHHHHHHHHHHUHHHHHHHHHHHH ロ ロロ 
HHUHUHHHHHHUHHHHHHHHHHUHHHHHHDHHHHHHDHHHDHUUH ロ ロロ 
DDDHUUHUHHHHHHHUHUHUHHHHHHHHHHHHHHUHHHHH ロ HHH ロ ロロ 
HHHHHHUHHUHDHHHHHHHHHHHHHHHHDHHHHHHHHHHHHHnn ロ ロロ 
HHHDUHHHHHHHHHUHHHUHHHHHUHHHHUHHHUHUHHDHHHHHHH ロ H ロ 
HHHHHHHHHHHHHHHHHHHHHHHHHUHHHHHHHHHHHHHHHHUUHHHHH 
HHHHUHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHUHH0U ロ ロロ 
HUHHHHHHHHHHHHHHHHHHHHHUHHHUHHHHHUHHDHUHHHHH ロ ロロ 
HOHUHDHHDDHHHHDHHHUHUHUHHHHHHHHUUHHHHUHHHUDUHHHD 
HHHHHDUHHHUHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHUUH ロ H 
DUHHHHHHHHHUUUHDHHHHHHHHHHHHHHHUHHHHUHHUHHHH ロ HH ロロ 
HUHHHHHHHHHUHUHUHHHHHHHHHHHHHHHHHHHHHHHHHHHUHHD ロ ロ 
DHDHHUHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHUHHHUHHH ロ ロロ 
HHHHHHHHUHHHHHHHHHHHHHHHHHHHHHHHHHOHHUHHHH ロ HU ロロ nn 
DHUDHHHUHHDHHHHHHUHHHHHHHHHHHHHHHHHHHHHHHHHHH ロ ロロ 
HHHHUHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHUHHH0 ロ ロロ 
HUDHUUHDHHHDHHHHHHHHHHHHHHHHHHHHHHHUHHHHHHUH ロ ロロ 
HHHHHHHHHDHHHHHHHHHHHHHHHHHUHHHHHHHHDHHHHHHnHn ロ n 
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0350H ベル ・ コ ー ド の 出力 





アド レス | 0350H 
機 能 | ベル ・ コ ー ド の 出力 
少 和 スタ | AF ニーー 記 も 














解 説 | BASIC の BEEP と 同様 に , 内 蔵 プ ザー を 一 定時 間 鳴 動き せま 
す . すでに 内 蔵 プ ザー が 鳴動 し て いる 場合 に は , ブザー の 鳴動 を 一 定時 間 停 止 き 
せま す . 


サン プル 








ーーー rinog the be]l] each ime -- 一 


ORG 0C100H 

C100 213CC1 LD HL,MESAGE 
C103 CD33C1 CALL DSPMSG 

H 
C106 CD17C1 CALL INDEC 』 1nPut セ ュ imes 
C109 3C - INC Aa 1 
C10A 3D DEC A j jump to sy ョ tem monitor i 千 zero 
C10B CA665C JP  Z,5C66H H 
C10E 47 6 LD B,A 
C10F CDS003 LOOP: CALL 0350H 5i※ring the be11 
C112 10FB DJNZ LOOP 
C114 C3665C " JP 5C66H 】 jump to =y5Stem moni モ or 

H 

3j inpu モ decimal number SubCoutine 

H 

H Outpu モ 5 。 : 1nPu モ number in accumul a モ or 

H destroys : register af,e 
C117? 1E00 INDEC: LD E,0 3 1ini モ ial ize 1nPut number 
C119 3E30 LD  A,707" j initialize inpu character 
C11B F5 TNLOOP:PUSH AF 1 
C11C 7B LD  AjE 日 
C11D 87 ADD A,A H 
C11E 87 ADD A,A 日 
C11F 83 ADD A,E 日 
C120 8Z ADD  A,A 3 e < ベー- e ※ 10 + input number 
C121 SF LD E,A 日 
C122 F1 POP AF 日 
C123 D630 SUB “0" 日 
C125 83 ADD A,E 日 
C126 SF LD E,A H 
C127 CD750F 5 CALL OF75H j inpu て a character from keyboard 
C12A CDS702 CALL 0257H j echo-back a character 
C12D FEOD " cP 0ODH 
C12F 20EA JR NZ , INLOOP 
C131 7B 6 LD ALE 
C132 C9 RET 


display message SubCou モ ine 
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C133 
C134 
C135 
C136 
C139 
C13A 


C13C 
C140 
C144 
C148 
C14C 


C14E 


7E 
AZ 
C8 
CD5702 


18F7 


686F7720 
6D616E79 
2074696D 
6573203F 
2000 


\GC100 
hou many times ? 150 


3 


DSPMSGiLD  A,(HL) 
AND A 
RET Z 
CALL 0257H 3 display a charac て er 
INC HL 
JR DSPMSG 


meG 紀 3S896G Pa 


マー … 


ESAGE:DEFB "hou many times ? “40 


END 
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03A9H カー ソル の 移動 





アド レス | 03A9H 
機 能 | カー ソル の 移動 
レジ スタ | AFーーーーー 一 




















解説 | レジ スタ 時に 格納 され た 1 一 8 0 の 横 座標 .。 お よび レジ スタ L に 格 
的 さ れ た 1 一 2 5 の 縦 座標 、 に よっ て 指定 する CRT ス クリ ー ン 上 の 指定 位置 に 
カー ソル を 移動 し ます . 














サン プル 
: ーーー moOve こい uFBOr モ O aPPOin モ men 七 PoB1 モ ion 一 
6 ORG 0C100H 
C100 2601 LOOP: LD Hi1 
C102 2E19 LD  L,25 H 
C104 CDA9203 CALL 03A9H j display prCompt message-1 
C107 2167C1 LD HL ,PRMPT1 
C10A CDSEC1 CALL DSPMSG け 
C10D CD42C1 - CALL INDEC 3j 1nPu 二 PoBi モ ion x 
C110 3C INC A 
C111 6Z LD  H,A 
C112 E5 PUSH HL 
C113 261D 1 LD Hz29 
C115 2E19 LD  L,25 5 
C117 CDA903 CALL 03A9H : display prompt message-2 
C11A 2182C1 LD HL,PRMPT2 日 
C11D CDSEC1 CALL DSPMSG 日 
C120 CD42C1 " CALL INDEC 3) 1nPut poSi セ ion y 
C123 3C " INC A 
C124 E1 POP HL 
C125 6F LD  L,A 
C126 E5 PUSH HL 
C127 2639 6 LD  H,57 
C129 2E19 LD L,25 H 
C12B CDA903 CALL 03A92H j display prompt message-3 
C12E 219DC1 LD HL ,PRMPT3 H 
C131 CDSEC1 CALL DSPMSG 
C134 CD42C1 " CALL INDEC j input character code 
C137 E1 6 POP HL 
C138 F5 2 PUSH AF 
C139 CDA203 CALL 03A9H ) jug 七 move CuFBor 
C13C F1 POP AF 
C13D CD5702 1 CALL 0257H ) jug モ display a character 
C140 18BE " JR LOOP j repea セ も 


input decimal number subroutine 


Ou モ pu モ 5 = : 1nPu モ number in accumula モ or 
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C142 
C144 


C146 
C14? 
C148 
C149 
C14A 
C14B 
C14C 
C14D 
C14E 
C150 
C151 


C152 
C155 


C158 
C15A 


C15C 
C1S5D 


C1S5E 
C1S5F 
C160 
C161 
C164 
C165 


C167 
C16B 
C16F 
C173 
C177 
C17B 
C17F 
C182 
C186 
C18A 
C18E 
C192 
C196 
C19A 
C19D 
C1A1 
C1A5 
C1A9 
C1AD 
C1B1 
C1BS 


C1BZ 


1E00 
3E30 


FS 
7B 
8?7 
87 
83 
87 
5F 
F1 
D630 
83 
5F 


CD750F 
CDS5702 


FE0D 
20EA 


7B 
C9 


7E 
AZ 
C8 
CD5702 


18F7 


6E657874 
20706F73 
6974696F 
6E207820 
3F202020 
20201D1D 
1D1D00 
6E657874 
20706F73 
6974696F 
6E207920 
3F202020 
20201D1D 
1D1D00 
63686172 
61637465 
7220636F 
6465203F 
20202020 
201D1D1D 
1D00 


INDEC: LD 


deS モ CoyS : reg15ter a ヵ 征 


E,0 
LD A。 07 
INLOOP :PUSH AF 
LD AE 
ADD  A,A 
ADD A,A 
ADD A,E 
ADD  A,A 
LD E,A 
POP AF 
SUB "0" 
ADD A,E 
LD E,A 
CALL OF7SH 
CALL 0257H 
CP 0DH 
JR NZ , INLOOP 
LD AE 
RET 
j display mesSBage SubCoutine 
DSPMSG:LD A,。(HL) 
AND A 
RET Z 
CALL 0257H 
INC HL 
JR DSPMSG 


me=589 ど 8PG8 


PRMPT1 :DEFB "next position x 


PRMPT2:DEFB “next position 


PRMPT3:DEFB 


END 


"character code ? 


は コ 


4 


initialize inpu number 
ini モ ia1 1Ze 1nPu 七 Characer 


e <ーー e ※ 10 + input number 


input a character from keyboard 


echo-back a character 


display a character 


^。1DH, 1DH, 1DH, 1DH, 0 


,1DH, 1DH, 1DH, 1DH,0 


>1DH, 1DH, 1DH, 1DH,0 
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\GC100 


を 
く 
> タ ? 
F 
D M 
ユ 
キ 4 % 
next position x ? next position y ? 1 character code ? 234 
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03D9H VRTC の チェ ッ ク 





アド レス | 03D9H 
機 能 | VRTC の チェ ッ ク 
レジ スタ | AF 一 一 ーー 一 


























解説 | CRT が バー チカ ル ・ リ トレ ー ス 期間 に な る まで の 間 , 同期 待ち を 
行い ます . 

VRTC は , 入力 ポー ト 4 0 H 番 地 の 第 5 ビッ ト に よっ て , チェ ッ ク す る こと 
が で きま す . 





ーーー check いり rtc 一 ーー 


ORG 0C100H 

Cc100 2120C1 LD HL,MESAGE 

C103 CD17C1 CALL DSPMSG 

C106 CDD203 LOOP: CALL 03D9H jjuat check vrtc 

C109 3E2A 1 LD Ar7w/ 

C10B CD5702 CALL 0257H 

C10E DB09 IN 。A,(09H) : 

C110 CB47 BIT 0,A : jump to system monitor iT stop key 
C112 CA665C JP  Z,5CeeH 1 

C115 18EF JR LOOP 


digp]lay mesage SubCou モ ine 


ロー ーー 


C117 7E SPMSG:LD  ^A,〈HL) 

C118 AZ AND A 

C119 C8 RET Z 

C11A CD5702 CALL 0257H j display a character 
C11D 23 INC HL 

C11E 18F ァ 7 JR DSPMSG 


me どら 3896G 8 じ @ ら 8 


エー 


C120 76727463 
C124 20726561 
C128 6479203A 
C12C 2000 


ESAGE :DEFB “vrtc ready : “,0 


C12E END 


\GC100 

ソ 七 C Gad ツ : ※※※※※※※※※※※※※※※※※※X※※X※XX※※※※ 
XX※ メ ※※※※※※※※※※※※※X※※※※XX※※※※ 
を を まそ そそ そそ そそ そそ まそ そそ そそ そそ そそ そそ キネ そそ そそ そそ そそ キキ そそ キネ 3 
半 革 洋 半 革 革 区 区 区区 区 区区 区 基 区 区 区 区 区 区 ※※※※※ デ 区 
半 迷 炎 洋 革 区 区 革 革 ※※ 炎 ※ 基 区区 区 区 区区 区 区 XX※※ デ 区 
XX※X デ XXXX※※※XX※XXX※※※XXX※※※※※※ 
メ \※※※※※※※※ メ ※※※※※※※※※X※※※※※※※X※※X※※XXXXXX※※※ 
革 デ デデデ デデデ ※ 区 区 区 区 ※ デ 区 
デデデ XX メ デデデ ※※※ デ メデ ※ デ メデ ※※※※※※ デ メデ 
※※※※※※※※※※※※ デ ※ 

※ 
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03F3H キャ ラク タ 座 標 上 VRAM アド レス 変換 





アド レス 
機 能 
レジ スタ 





























解説 








0 3F3H 
キャ ラク タ 座 標 や 上 VRAM アド レス 変換 
AFBCDEHL 


レジ スタ 是 に 格納 され た 1 一 8 0 の 横 座 標 . お よび レジ スタ L に 格 


納 さ れ た 1 一 2 5 の 縦 座標 . に よっ て 指定 する CRT ス クリ ー ン 上 の 指定 位置 に 
相当 する VRAM(Video 一 R AM) の アド レス を 計算 し , 結果 を レジ スタ 是 葉 に 
格納 し て も どり ます . 


80 グ 7 2 


4 03 6 桁 モ ー ド , カラ ー グ 白黒 モー ド 等 は すべ て 考 護 し た 上 


で , アド レス が 計算 され ます . 

な お , 80 プ 72 プ 40 グ 36 桁 モー ド の 判別 に 当たっ て は ワー ク ・ エ リア 中 
EA65H 番 地 の 値 を 、 カラ ー グ 自 時 モー ド の 判別 に 当たっ て は EA6 1H 番 地 
の 値 を . それ ぞ れ 参照 し ます . 


C100 2E04 
C102 2604 


C104 E5 
C105 CDF303 
C108 3623 
C10A E1 


C10B 24 
C10C 7C 
C10D FE09 
C10F 20F3 


C111 2C 
C112 7D 
C113 FE09 
C115 20EB 


C117 C3665C 


%GC100 


革 
拉 村 間 欄 欄 
村 提 拉 村 欄 
半 枯 柏 柱 
手提 補 柱 柏 
柏 析 柱 析 欄 
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5 ーーー display a box ぃ ith characterB ーー 一 
5 ORG 0C100H 
H 


LD L,4 initialize coordinate 


initialize coordinate ※ 


LOOPY: LD H,4 
LO0PX: PUSH HL 


CALL 03F3H j ※calculate address in video-ram 
LD (HL)," 笠 j send a character to video-ram 
POP HL 

INC H : incremen 七 coordinate x 

LD AH H 

CP ヶ j check coordinate x end 


JR NZ ,LOOPX 


INC L j 1ncremen モ coordinate ツ 

LD AL H 

CP 2 j check coordinate y end 

JR NZ ,LOOPY H 

JP 5C66H j Jump モ o ytem moni モ or 
・ END 


0401H 論理 座標 
































納 さ れ た 1 一 2 5 の 縦 座標 を , 8 
モー ド を 考 虚 し た 上 で , BASI 
座標 に 変換 し , 結果 を レジ スタ H 


横 座標 の 計算 は , 次 式 に 準じ て 
カラ ー・ モ ー ド 8 0 桁 の 場合 
カラ ー・ モ ー ド 7 2 桁 の 場合 
カラ ー・ モ ー ド 4 0 桁 の 場合 
カラ ー・ モ ー ド 3 6 桁 の 場合 
白黒 "モー ド 8 0 桁 の 場合 
白黒 "モー ド 7 2 桁 の 場合 
白黒 "モー ド 4 0 桁 の 場合 
白 早 モー ド 3 6 桁 の 場合 


な お , 80/72 ノ 40/36 
EA65H 番 地 の 値 を , カラ ー/ 
の 値 を . それ ぞ れ 参照 し ます . 


プ ド 


じ 実 座標 変換 


冬 . 
アド レス | 0401H 
機 能 | 論理 座標 じ 実 座標 変換 
レジ スタ | AFーーーー 昌 し 
解説 | レジ スタ H に 格納 され た 1 一 8 0 の 横 座 酔 . お よび レジ スタ エ L に 格 


0/72 グ 40/3 6 桁 モ ー ド , カラ ー ノ 自 里 
C で 使用 する VRAM(Video-R AM) 上 の 実 
お よび レジ スタ L に 格納 し て も どり ます . 


行い ます . 
ーー H< (H 一 1) 十 1 
… Hー (H-1)+2 


990 人 8 Hー (Hー1)xX2 二 2 
AT Hー (Hー1)X2 

H (Hー1)X2 

HH て (Hー1)X2 十 4 

桁 モ ー ド の 判別 に 当たっ て は ワー ク ・ エ リア 中 
自 時 モー ド の 判別 に 当たっ て は EA 6 1 日 番地 


j ーーー calculate phys1cal Poai モ ion ーー 一 
1 ORG 0C100H 
C100 2172C1 " LD HL ,PRMPTX 
C103 CD69C1 CALL DSPMSG 
C106 CD32C1 CALL INDEC 3 inpu モ 1ogica] position x 
C109 5Z LD D,A 
C10A 218CC1 6 LD HL ,PRMPTY 
C10D CD69C1 CALL DSPMSG 
C110 CD32C1 CALL INDEC 3 inpu モ logical position y 
C113 SF LD E,A 
C114 05 ・ PUSH DE 
C115 E1 POP HL 
C116 CDO104 CALL 0401H j※calculate physica] position 
C119 E5 PUSH HL 
C11A D1 POP DE 
C11B 21AeC1 LD HL,ANSURX 
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C11E 
C121 
C122 


C125 
C128 
C12B 
C12C 


C12F 


C132 
C134 


C136 
C137 
C138 
C139 
C13A 
C13B 
C13C 
C13D 
C13E 
C140 
C141 


C142 
C145 


C148 
C14A 


C14C 
C14D 


C14E 
C14F 
C150 
C151 
C153 
C155 
C156 
C157 
C158 


C15A 
C15B 
C15D 
C1SF 


C162 
C163 
C165 


C168 


C169 
C16A 
C16B 
C16C 
C16F 
C170 
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CD69C1 
7A 
CD4EC1 


21C0C1 
CD69C1 
7B 

CD4EC1 


C3665C 


1E00 
3E30 


F5 
7B 
87 
87 
83 
87 
5F 
F1 
De630 
83 
SF 


CD750F 
CD5702 


FEOD 
20EA 


7B 
C9 


08 
AF 
08 
D60A 
3805 
08 
3C 
08 
18F7 


08 
C630 
FE30 
C45702 


08 
C63A 
CD5702 


C9 


7E 
AZ 
C8 
CDS702 


18F?7 


CALL 
LD 
CALL 


LD 
CALL 
LD 
CALL 


JP 


1input deci 


H 
H Ou モ Pu 
H destroy 
INDECi LD 

LD 


INLOOP : PUSH 
LD 
ADD 
ADD 
ADD 
ADD 
LD 
POP 
SUB 
ADD 
LD 


CALL 
CALL 


CP 
JR 


LD 
RET 


display de 


1nPu も 5 
de ョ troy 


DSPDEC:EX 
XOR 
EX 
DSPDE1 : SUB 
JR 
EX 
INC 
EX 
JR 


DSPDE2:EX 
ADD 
CP 
CALL 


EX 
ADD 
CALL 


RET 


display me 


ロー …・ 


SPMSG:LD 
AND 
RET 
CALL 
INC 
JR 


DSPMSG 
AD 
DSPDEC : display physical position x 


HL , ANSURY 

DSPMSG 

AE 

DSPDEC j display physical position y 
5C66H ? jump て to sy ョ tem moni1 セ も or 


mal number subroutine 


: 1npu モ number in accumul a モ or 


= : register afT,e 

E,0 j initialize inpu number 

A。 07 j 1nitial ize inPpu モ 上 characer 
AF 日 

AE H 

人 。 谷 H 

AA H 

AE H 

AA : e <ー- e ※ 10 + input number 
E,A H 

AF H 

07 5 

AE 日 

E,A H 

OF75H j input a.character from keyboard 
0257H j echo-back a character 

0DH 

NZ , INLOOP 

AE 


cimal number ubroutine 


: binary code less han 100 in accumulator 
ョ : register a 


AF ,AF 

A 

AF ,AF" 
10 
C,DSPDE2 
AF ,AF" 

A 

AF ,AF* 
DSPDE1 


AF ,AF 
A, 707 
り 

NZ ,0257H 


AF , AF 
A+10+ "07 
0257H 


SSage SubCou モ ine 


A,(HL) 

人 A 

4 

0257H j display a characer 
HL 

DSPNSG 


で 


C172 0DO0A6C6F 
C176 67696361 
C17A 6C20706F 
C17E 73207820 
C182 28312D38 
C186 3029203F 
C18A 2000 


C18C 0D0A6C6F PRMPTY:DEFB 0DH,0AH, “1ogical pos y (1-25) 


C190 67696361 
C194 6C20706F 
C198 73207920 
C192C 28312D32 
C1A0 3529203F 
C1A4 2000 


C1A6 0D0A2070 ANSMRXiDEFB 0DH,0AH," physical position x 


C1AA 68797369 
C1AE 63616C20 
C1B2 706F7369 
C1B6 74696F6E 
C1BA 2078203F 
C1BE 2000 


C1CO 0D0A2070 ANSMURY:DEFB 0DH,0AH,” physica] position y の 


C1C4 68797369 
C1C8 63616C20 
C1CC 706F7369 
C1D0 74626F6E 
C1D4 2079203F 
C1D8 2000 


C1DA END 


GC100 


1ogical pos x (1-80) 
1ogical pos y (1-25) 
・physical position x 
physical position y 
\GC100 


1ogical pos x (1-80) 
1ogical pos y (1-25) 
physical position x 
physical position 
\GC100 


logical pos x (1-80) 
1ogical pos y (1-25) 
physical position x 
physical position ッ 
3 


つや つつ つや つつ 


ざ ざ ざ ざ 
mw の の の 


me88896G 8 し Ga 


RMPTX:DEFB 0DH,0AH, "1ogical pos x (1-80) 


10 
10 
22 


36 
25 
74 
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0451 ル 1 日 デキ スト ・ ス クリ ー ン の 1 行 ク リア 





アド レス | 0451H 
機 能 | テキ スト ・ ス クリ ー ン の 1 行 ク リア 
レジ スタ | AFBCDEHL 


























解 説 | レジ スタ DE に よっ て VRAM(Video 一 R AM) 上 の 先頭 アド レス 
を 指定 する , CRT テ キス ト ・ ス クリ ー ン の 指定 ライ ン を クリ ア し ます . 

実際 に は , VRAM エリ ア の 最後 FEB8H 番 地 か ら 1 2 0 バイ ト の 内 容 を , 
レジ スタ DE に よっ て 指定 する アド レス 以降 に ブロ ッ ク 転 送 す る た め , ヌル ・ キ 
ャ ラク タ ・ コ ー ド お よび ベー ス ・ カ ラー は , FEB8H 番 地 か ら の 1 2 0 バイ ト 
に 用 意 き され た クリ ア ・ バ ッ フ ァ の 内 容 を 参照 し ます . 





ーーー demonstration of erace 1lines ーー 一 


ORG 0C100H 
) ョ ection of phase 1 


C100 2E19 LD L,25 ) aPPoint coordinate y 
C102 2650 LOOPY: LD H, 80 j aPPoin coordinate x 
C104 3E7E LOOPX: LD し ) appPoint a character 
C106 ES " PUSH HL 

C107 CDD702 CALL 02D7H : move cursor and display 
C10A E1 POP HL 

C10B CD3eC1 CALL uAITS uait a moment 

C10E 25 DEC H j decremen coordinate x 
C10F 20F3 JR NZ,LOOPX 

C111 2D DEC L j) decrement coordinate ツ 
C112 20EE JR NZ,LOOPY 


section of phase 2 


C114 21FOF3 LD HL,OF300H+120+120 

C117 3E08 LD 8a,8 

C119 54 LOOP: LD DiH 

C11A 5D LD ELL 

C11B E5 - PUSH HL 

C11C CD5104 CALL 0451H :xerace a line 
C11F E1 POP HL 

Cc120 CD2DC1 CALL UAITL uait 

C123 116801 LD DE,120+120+120 

C126 19 ADD HL,DE 

C127 3D DEC A 

C128 20EF JR NZ,LOOP 

C12A C3665C " JP 5C66H j jump て o ytem moni1 モ or 
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C12D 
C12F 
C132 
C133 
C135 


C136 
C138 
C134 


C13B 


OEFF 
CD36C1 
0D 
20FA 
C2 


06FF 
10FE 
C9 


い a1 七 Subroutine 


H destroy8 : regi5ster b,c 
MAITL: LD  C,OFFH 
UAITL1:CALL MAITS 

DEC C 


JR NZ ,MAITL1 
RET 


い ai 七 a moment SubCou モ ine 


destroys : register b only 


UAITS: LD  B,OFFH 
UAITS1 :DJNZ UAITS1 
RET 


END 
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045AH テキ スト ・ ス クリ ー ン の クリ ア 





アド レス 045AH 





機 能 | テキ スト ・ ス クリ ー ン の クリ ア 


レジ スタ | AFBCDEHL 
解説 











CRT テ キス ト ・ ス クリ ー ン の み を クリ ア し ます . 
F 3 0 0 日 番地 か ら 3 0 0 0 バイ ト の 全 VRAM(Video-R AM) エリ ア に 関 
し , テキ スト ・ エ リア は ヌル ・ キ ャ ラク タ ・ コ ー ド に よっ て , アト リ ビ ュ ー ト ・ 


エリ ア は ヌル ・ ア トリ ビュ ー ト ・ コ ー ド に よっ て , それ ぞ れ 満た し ます . 


2 0 バイ ト に 用 意 き れ た クリ ア 
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ヌル ・ キ ャ ラク タ ・ コ ー ド お よび ベー ス ・ カ ラー は , FEB8H 番 地 か ら の 1 
・ バ ッ フ ァ の 内 容 を 参照 し ます . 





サン プル 


ーーー dump memory by asci1i character 一 


ORG 0C100H 
C100 DD210000 LD IX,0000H 3 aPPoin op address of memory 
C104 CDS5A04 LOOP: CALL 045AH j※clear ex て screen al1 
C107 3A5DEA 5 LD  A,(OEASDH) j lines of scrol1ing area 
C10A 6F LD LA ) Se coordinate y 


C10B 3A65EA LOOPY: LD A,(OEA65H ) ぃ 1dth of text screen 


C10E 6 ァ LD H,A et coordinate x 

C10F DB09 LOOPx: IN A,(09H) H 

C111 CB47 BIT 0,A ?) Jump to syStem monitor i 千 stop key 
C113 CA665C JP  Z,5C66H 5 

C116 DD7E00 LD A,(IX) j ge a character from memory 

C119 DD23 INC IX ) nex モ address 

C11B FE20 CP 20H 

C11D 3002 JR NC,NOMAL j chage control character 

C11F 3E2E LD AA ご 日 


diaplay a character 


C121 CD5702 NOMAL CALL 0257H 


C124 25 DEC H j decrement coordinate x 
C125 20E8 JR _ NZ,LOOPX 
C127 2D - DEC L j decremen モ coordinate y 
C128 20E1 JR NZ,LOOPY 
H 
C12A 18D8 JR LOOP # nhOu じ GPGa セ 
Ct2c 0 END 
\G6C100 


n cal 1 .Overf]ou.0ut of memory.Undefined 

1ine number.Subscript ou of range.Redim 
ensioned array・Division by zero.111egal 

direct。Type mismatch.Out of string space 
・String too long・String formula too comp 
1ex.Can"t continue.Undefined uger functi 
on・No_ RESUME . RESUIME ぃ ithout error.Unprin 
table error.Missing operand.Line buf げ fer 

overf げ lou。Posi モ ion not on screen.Bad File 
Data.Disk BASIC Feature .Commun ications 

Buffer Overf げ lou.Port not initial ized.Tap 
e read ERROR . モ , ノ ヨ .o!“" 。gx" .6>. ノ 。. .5J ハ 9 . ソ 
r"ー ウ ェ ェ ン 6 rS ム ュ ュ re シ A rg> rRX0_ ロ . ノ ・D・D・D・D 
・D:D・D・D・DD。 3 に oo 











@,。 seoeo eee ア < くく < で oo soc sa も O 。。 
CD s 人 9O も O <。。。 く ooooe ig も 。。。。。。。 6 < 和 
・ ビ ロロ て て て て ・・・・・・・・・ 上 1me。。。。。。。。。。。 key ー・・・ 
・ ・・PPin 革 に 。。。。。・ に 。 1 1 上 。。。。。。。・ < 
・COn も 。。・。。。・・・・・・・・/ キ ノ く ノ く ノ テ 。。 チ 。。。。。。。 ュー・ 
N ノ ノブ . ネ ノブ ルイ 。 PB て 年 。 年 in 
0k ...Break .! 。 9 の" 本 クタ N 梓 F 菩 思 1 ラ 
% 


43 


0 4 7AH ライ ン 数 か ら VRAM の バイ ト 数 を 計算 





アド レス | 047AH 
機 能 | ライ ン 数 か ら VRAM の バイ ト 数 を 計算 
レジ スタ | AFBCー 一 日 L 


























解 上 アキ ュ ム レー タ の デー タ (1-255) に 12 0 を 乗じ し た も の を , 
レジ スタ BC お よび レジ スタ HL に 格納 し ます . 

た だ し , アキ ュ ム レー タ の デー タ が 0 (ゼロ ) で ある 場合 の チェ ッ ク は 行っ て 
いな いた め , 0 は 2 5 6 と みな し た 上 で 計算 を 行い ます . 

イン タプ リタ で は , CR テキ スト ・ スク リー ン の ライ ン 数 を VRAM 
(Video--R AM) 上 で の バイ ト 数 に 変換 する 際 に , この シス テム ・ サ ブ プルー チン 
を 用 いて いま す . 


3 





サン プル 





ーーー multiply by 120 --- 


ORG 0C100H 
C100 2132C1 START: LD HL ,PROMPT 
C103 CD29C1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH ) creen edi て or 
C109 DA66SC JP C,5C66H j =yStem monitor if stop key 
C10C 23 INC HL 
C10D E5 PUSH HL 
C10E CD29C1 CALL DSPMSG j display the input number again 
C111 214AC1 LD HL , ANSUER 
C114 CD29C1 CALL DSPMSG 
C117 E1 POP HL 
C118 CDBE2B " CALL 2BBEH j convert into binary code 
C11B CD7F27 CALL 277FH j COnVeF セ も in セ to integer 
C11E 3AA8F0 " LD A,(OF0A8H ) j get lsb byte of integer 
C121 CD7A04 CALL 047AH j※multiply by 120, resul モ in reg-h1 
C124 CD132D い CALL 2D13H j display unsigned integer 
.C127 18D7 JR START 


H 
) display meB8age SubFou モ ine 


C129 7E DSPMSG:LD 。A,〈HL) 


C12A AZ AND A 
C12B C8 RET Z 
C12C CD5702 CALL 0257H j display a character 
C12F 23 INC HL 
C130 18F7 JR DSPMSG 
: me らら age ae@a 
C132 0D0A0A61 PROMPT:DEFB 0DH,0AH,0AH,"a integer in byte ? “,0 


C136 20626E74 
C13A 65676572 
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C13E 20696E20 
C142 62797465 
C146 203F2000 
C14A 206D756C 
C14E 7469706C 
C152 69656420 
C156 62792031 
C15A 32302069 
C15E 732000 


C161 


\GC100 


a 
3 


8 


integer in 
multiplied 


integer in 
mu]ltiplied 


integer in 
multiplied 


integer in 


ANSMUER:DEFB " multiplied by 120 is “,0 


END 


byte ? 1 
by 120 is 120 


byte ? 2 
by 120 is 240 


byte ? 3 
by 120 is 360 


byte ? 10 


10 multiplied by 120 is 1200 


a integer in byte ? 100 
100 multiplied by 120 is 12000 


= まい 


integer in 
muitiplied 


integer in 


byte ? 0 
by 120 is 30720 


byte ? 
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0 487H テキ スト 画面 クリ ア ・ バ ッ フ ァ の 設定 





アド レス | 0487H 


機 能 | テキ スト 画面 クリ ア ・ バ ッ フ ァ の 設定 
レジ スタ | AFBCDEHL 

















解 説 | VRAM(Video-R AM) エリ ア の 直後 , す な わ ち FEB8H 番 地 か 


ら の 1 2 0 バイ ト に 用 意 さ きれ る CRT エ テキ スト ・ ス クリ ー ン の ライ ン ・ ク リア ・ 
バッ ファ を , 適切 な デー タ で イニ シア ライ ズ し ます . 

イン タプ リタ が テキ スト ・ ス クリ ー ン を クリ ア す る 際 に は , この クリ ア ・ バ 
ッ フ ァ の 内 容 を , ライ ン 単 位 で ブロ ッ ク 転 送 し て 行き ます . 


サン プル 





ORG 0C100H 
Cc100 CD2EOB CALL 0B2EH 
C103 AF XOR A 
C104 3260EA LD  〈OEAeOH),A 
C107 08 EX AF,AF" 
C108 DB09 LOOP: IN  A,(O9H) 
C10A CB47 BIT 0,A 
C10C CA665C JP 2Z,5C6eH 
Cc10F 08 " EX AF,AF" 
C110 325AEA LD て OEA5aAH),A 
C113 3C INC A 
C114 08 EX AF,AF* 
C115 CD8704 CALL 0487H 
C118 CD5A04 CALL 045AH 
C11B CD20C1 CALL uaIT 
C11E 18E8 JR LooP 


いり ai 七 a moment subroutine 


C120 OEFF MAIT: LD C,0OFFH 
C122 06FF MAIT1: LD  B,OFFH 
C124 10FE MAIT2: DJNZ MAIT2 
C126 0D DEC C 

C127 20F9 JR NZ,MAIT1 
C129 C9 RET 

C12A END 


\GC100HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
※HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 


destroys : register b,c 


ーーー apply screen clearing buffer --ー 


function keys displ ay off 


j se て nul 1 character in accumul ator~" 


Jump to ystem monitor if stop key 


Se モ nul 1 character 
incremen nul] character code 


j※ini モ ialize clearing buffer 
) clear tex screen al1 
) uai 七 a momen モ 


) and repea セ 
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04F8H アト リピ ビュー ト の コン トロ ー ル 





アド レス 04FB8HH 
機 能 | アト リ ビ ュ ー ト の コン トロ ー ル 
レジ スタ AFBCDEHL 


























解説 | レジ スタ に 格納 され た 1 一 8 0 の 横 座 標 . お よび レジ スタ エ L に 桁 
納 さ れ た 1 一 2 5 の 縦 座標 . に よっ て 指定 する テキ スト ・ ス クリ ー ン 上 の 指定 座 
引 に 対応 する アト リ ビ ュ ー ト を , アキ ュ ム レー タ に 格納 され た アト リ ビ ュ ー ト ・ 
コー ド に よっ て 設定 し ます . 

な お , アキ ュ ム レー タ に 与 ん る アト リ ビ ュ ー ト ・ コ ー ド は , PD3301( プ 
ログ ラマ ブル C RT コン トロ ー ラ ) に 使用 きれ て いる も の で す . 

















サン プル 
』 ーーー demon モ Ca モ ion oO 和 † Con モ Co1 a モ tr1bute 一 ーー 
ORG 0C100H 
H モモ Cibutes code map 
H ーー キー ニー マー ニー ニー ピー デー や ーー そ ニテ デニ ニニ マ デニ マニ ーー ニー ニー ニー ニニ デー デー + 
H ! bits ! color ! bu 
5 キーーーーーーーー ーーーーーーーーーーー 一 ーーーーーーーーーーーー キーーーーーーーーーーーー + 
H ! bit0=0 ! ※xunused※X※ ! normal ! normal 
H 三 1 ! ※X%unuBeGd※※ ! gecre セ ! secre モ 
H ! bit1=0 ! ※Xunused※※ ! normal ! normal 
H ! =1 ! XXunused※※ ! blinking ! blinkino 
H ! bit2=0 ! XXunused※※ ! normal ! normal 
H ! 三 1 ! ※※%unUBGd※※ ! CeverSe ! reverae 
5 キーーーーーーーー キーーーーーーーーーーーー キーーーーーーーーーーーー ーーーーーーーーーーーー + 
H ! bit3=0 ! 8aPPOin 七 mode ! ※XunuSed※※ ! 
H U =1 ! appoint color 1! ※%unUBGd※※ ! 
H ーーーーーーーー キーーーーーーーーーーー 一 ーーーーーーーーーーーー ーーーーーーーーーーーー + 
H ! bit4=0 ! character  ! normal ! normal 
H ! =1 ! graphic ! over line ! over line 
5 ! bit5=0 ! blue off ! normal ! normal ! 
H ! =1 ! blue on ! under line ! under line ! 
日 ! bit6=0 ! red off 1 X※※unUSGd※※ ! ※※unUSGd※※ ! 
H 『! =1 |! red on 1! ※X※unUBGdXX ! ※X%UnUBGd※※ 
H ! bit7=0 ! green ofTfT  ! XX※unused※※ ! character ! 
日 ! =1 ! green on ! ※Xunused※X ! graphic ! 
H キーーーーーーーー ーーーーーーーーーーーー エーーーーーーーーーーー 一 キーーーーーーーーーーーー + 
C100 01FF00 LD BC,OOFFH 5 
C103 CDF708 CALL 08F7H H 
C106 0628 LD B,40 j console ,,0,1:uidth 40,25 
C108 OE19 LD C,25 け 
C10A CD3A09 CALL 0923AH 3 
C10D 2E01 LD L。1 ) appPoin coordinate y 
C10F 2601 LOOPY: LD H, 1 j apPPoin モ coordinate x 
C111 78 LOOPX: LD AB H 
C112 3C INC A 6 
C113 E607 AND 07H H 
C115 47 LD B,A H 
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C116 
C118 
C11A 
C11C 
C11E 
C120 


C122 
C123 
C124 
C125 
C128 
C129 
C12A 


C12B 


C12C 
C12D 
C12E 
C12F 
C132 
C133 
C134 


C135 


C136 
C137 
C138 
C139 
C13C 
C13D 
C13E 


C13F 
C140 
C141 
C143 
C145 
C146 
C147 
C149 
C14B 


C14E 


CB17 
CB17 
CB17 
CB17 
CB17 
F618 


F5 
CS 
ES 
CDF804 
E1 
C1 
F1 


24 


F5 
C5 
ES 
CDF804 
E1 
C1 
F1 


24 


F5 
CS 
E5 
CDF804 
E1 
C1 
F1 


24 
7C 
FE28 
20CC 
2C 
7D 
FE1A 
20C4 


C3665C 


\6C100 


甘 


RL 
RL 
RL 
RL 
RL 
OR 


PUSH 
PUSH 
PUSH 
CALL 
POP 
POP 
POP 


INC 


PUSH 
PUSH 
PUSH 
CALL 
POP 
POP 
POP 


INC 


PUSH 
PUSH 
PUSH 
CALL 
POP 
POP 
POP 


INC 
LD 
CP 
JR 
INC 
LD 
CP 
JR 
JP 


END 


5 キン キン テコ 


04F8H 
HL 
BC 
AF 


H 


AF 
BC 
HL 
04F8H 
HL 
BC 
AF 


H 

AH 

39+1 

NZ ,LOOPX 
選 

AL 

25+1 

NZ ,LOOPY 


5C66H 


geneGrae a モ モビ ュ bute code 


from basic Function code 


※=e 七 a モ トモ Ci1bute 


incremen coordinate x 


Xe 上 a モ モ C1bute 


increment coordinate x 


Xe aibue 


incremen coordinate x 


check coordinate x end or no も 


incremen モ coordinate y 


check coordinate y end or not 


Jump 上 O = ッ ョ tem moni モ or 


49 


0664H ライ ン 番 号 じ VRAM アド レス 変換 





アド レス 








| 機 能 | 


レジ スタ 


能 








解説 





0664H 
ライ ン 番 号 じ VRAM アド レス 変換 
AFー 一 DEHL 


アキ ュ ム レー タ に 格納 され た 0 一 2 5 の 縦 座標 に 対応 する VRAM 


(Video 一 R AM) の 先頭 アド レス を , レジ スタ DE に 求め ます . 

アキ ュ ム レー タ に 与え られ た 縦 座標 が 0 の 場合 に は , V R AM の 開始 アド レス で 
ある F 3 0 0 H が 結果 と な り ま す が , 縦 座標 が 2 5 の 場合 に は テキ スト ・ ス クリ 
ー ン ・ ク リア ・ バ ッ フ ァ の 開始 ア 98 科 和 MCH2 


また , 


この シス テム ・ サ ブ プルー チン で は , ライ ン 番 号 か ら VRAM ア ドレ ス へ 


の 変換 を 計算 に よっ て 行っ て いる の で は な 、 く ., 高速 性 を 0 人 
ー06A8H 番 地 の テ ー ブ ル より アド レス を 引き 出し て いま す . 


C100 
C103 
C106 
C109 
C10B 


C10E 
C111 
C114 


C117 
C11A 


C11D 


C11F 
C120 


C123 
C124 


215FC1 
CDS6C1 
CD2FC1 
FE19 

D2665C 


CD6406 
217DC1 
CDS56C1 


CD750F 
CDS702 


0604 


12 
CD4BC1 


F5 
3E20 


C126 12 


C12? 
C12A 


C12B 
C12D 
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CD4BC1 
F1 


10F2 
18D1 


ーーー apPOin セ the 1]ine on て tex て screen ーー 一 


ORG 0C100H 


START: LD HL,PRMPT1 
CALL DSPMSG 


CALL INDEC j 1nPu モ ]ine number in accumul a モ or ヒ 
CP 25 
JP _ NC,SC66H 


CALL 0664H j※ge address on vram in reg-de 


LD HL ,PRMPT2 

CALL DSPMSG 

CALL OF75H 3 1nPu て a character in accumul a モ or 
CALL 0257H j echo-back the character 


) flash the appointed character ten imea 
LD B,10 


FLASH: LD DE),A 
CALL MAIT 


PUSH AF 

LD AA 
LD (DE ) ,A 
CALL MAIT 
POP AF 
DJNZ FLASH 
JR START 


input decimal number subroutine 


〇 い u モ pu モ 5 。 : 1nPu モ number in acCCumula モ or 


H 
1 


C12F 1E00 NDEC: LD E,0 
C131 3E30 LD AaA,07 
C133 FS INLOOP:PUSH AF 
C134 7B LD AE 
C135 87 ADD  A,A 
C136 87 ADD  A,A 
C137 83 ADD A,E 
C138 87 ADD  A,A 
C139 SF LD  E,A 
C13A F1 POP AF 
C13B _D630 SUB "0" 
C13D 83 ADD AE 
C13E SF LD  E,A 
C13F CD750F CALL OF75H 
C142 CDS702 CALL 0257H 
C145 FEOD CP 0DH 
C147 20EA JR NZ , INLOOP 
C149 7B LD AE 
C14A C9 RET 


い a1 七 SuDCou モ ine 


uAIT: LD 


C14B 2EFF L,OFFH 
C14D 26FF UAIT1: LD H,0FFH 
C14F 25 UAIT2: DEC H 
C150 20FD JR NZ,MAIT2 
C152 2D DEC L 
C153 20F8 JR NZ,MAIT1 
C155 C9 RET 

1 display message SubCoutine 
C156 7E DSPMSG:LD A,(HL) 
C157 AZ AND A 
C158 C8 RET Z 
C159 CD5702 CALL 0257H 
C15C 23 INC HL 
C15D 18F7 JR DSPMSG 

H 

) meGS ら Sa9G 8a ビ Ga 
C15F 0D0A6C69 P 


C163 6E65206E 
C167 756D6265 
C16B 72206672 
C16F 6F6D2030 
C173 20746F20 
C177 3234203F 
C17B 2000 
C17D 0D0A2020 PRMPT2:DEFB 0DH, 0AH,“ 
C181 20202020 
C185 20202020 
C189 20202020 
C18D 20636861 
C191 72616374 
C195 6572203F 
C199 2000 


C19B END 


*G6C100 


line number from 0 to 24 ? 20 


character ? 
※ 


destroys : register h,1 


destroys= : regigter af,e 


H 


initialize inpu number 
initialize inpu モ characer 


e <ー- e ※ 10 + input number 


input a character from keyboard 
echo-back a character 


display a character 


RMPT1 :DEFB 0DH,0AH, "1ine number from 0 to 24 ? ^,0 


character ? ^,0 


51 


06E6 日 アト リ ビ ュ ー ト の コン トロ ー ル 





アド レス 06E6H 
機 能 | アト リ ビ ュ ー ト の コン トロ ー ル 
レジ スタ | AFBCDEHL 


























解 説 | EDC4H 番 地 に 格納 され た 1 一 8 0 の 横 座 標 . お よび EDC3H 
番地 に 格納 され た 1 一 2 5 の 縦 座標 . に よっ て 指定 する CRT ス クリ ー ン 上 の 指 
『 に 対応 する アプ トリビュー ト を , EDBAH 番 地 に 格納 され た アト リ ビ ュ ー 
ト ・ コ ー ド に よっ て 設定 し ます . 

な お ,。 EDBAH 番 地 に 与 を る アト リ ビ ュ ー ト ・ コ ー ド は , PD3301( プ 
ログ ラマ ブル CRT コ ント ロー ラ ) に 使用 きれ て いる も の で す . 




















サン プル 
j ーーー demontration of con モ Col a モ モビ 1ibute 11 ーー 一 
H 

ORG 0C100H 

H 
H ョ モモ Fibutes code map 
5 ーーーーーーーーーーーーーーーーーーーーーーーー 一 キーーーーーーーーーーーー + 
H color ! bu ! 
5 ーーーーーーーーーーー 一 キーーーーーーーーーーー 一 ーーーーーーーーーーーー + 
H ! ※Xunused※※ ! normal ! normal ! 
H ! ※※unuSed※※ ! gecre モ ! secret 1 
け ! ※X※unused※※ ! normal ! norma1 ! 
H 1 ※※unu5ed※X ! blinking 1 blinking 1 
日 ! ※※unused※※ ! normal ! normal ! 
H 1! %※※unUSGd※※ ! reueCB@e ! reverse ! 
H + + ーーーーーーーーーーーー + 
H ! aPPO1n 上 mode ! ※※unuSed※※ ! 
H ! 1 ※XunuSed※※ ! 
5 ーーーーーーーーーーー 一 ーーーーーーーーーーーー ーーーーーーーーーーー 一 + 
H ! character  ! normal 1 normal 1 
H 1 graphic ! over line ! over line ! 
5 ! blue off ! normal ! normal ! 
H ! blue on ! under line ! under line ! 
日 ! red off 1 X※※unUSGd※※ | ※X※unUSGdX※※ ! 
日 | red on 1 ※※unUBGd※※ | ※※unUBGd※※ | 
H 1 green off  ! ※※unuBed※※ ! character  ! 
H ! green on 1 ※X%unuSed※※ ! graphic 1 
H ーーーーーーーーーーー 一 キーーーーーーーーーーーー キーーーーーーーーーーー 一 + 

C100 010000 LD BC,0000H H 

C103 CDF708 CALL 08F7H 日 

C106 0650 LD B,80 j console ,,0,0:uidth 80,25 

C108 OE19 LD C,25 H 

C10A CD3A09 CALL 093AH H 

C10D 2E01 LD L,1 j apPPoin セ coordinate y 
H 

C10F 2601 LOOPY: LD H, 1 j apPPoin モ coordinate x 

C111 22C3ED LOOPX: LD (0EDC3H ) , HL ) tore coordinate x and ッ 

C114 3E80 LD A,80H ja モモ Cibute code of semigraphic 

C116 32BAED LD (0EDBAH) ,A j tore i モ 

C119 F5 PUSH AF 

C11A CS PUSH BC 
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C124 
C125 
C128 
C12A 
C12B 
C12C 


C12D 
C12E 
C12F 
C131 
C133 
C134 
C135 
C137 
C139 


C13C 


ES 
CDF303 
36FS 
Et 

C1 

F1 


24 
7C 
FE51 
20DE 
2C 
7D 
FE1A 
20D6 


C3665C 


\GC100 
※ 


PUSH HL 
CALL 03F3H 


LD 

POP 
POP 
POP 


INC 
LD 
CP 
JR 
INC 
LD 
CP 
JR 
JP 


END 


(HL ) ,0FSH 
HL 
BC 
AF 


H 

AH 

80+1 

NZ ,LOOPX 
L 

AL 

25+1 

NZ ,LOOPY 


5C66H 


calculate vram address 


send て the form in ョ emi-grphic 


incremen モ coordinate 


check coordinate x end or no 


incremen 上 coordinate y 


check coordinate y end or no セ 


Jump モ o =yStem moni モ or 





07C9H ファ ンク ショ ン ・ キ ー 表 示 の 開始 





アド レス | 0 7C9H 
機 能 | ファ ンク ショ ン ・ キ ー 表 示 の 開始 
レジ スタ | AFBCDEHL 











解 " 説 | アキ ュ ム レー タ の 内 容 に 1 を 加え た 番号 の , プ ログ ラマ ブル ・ フ ァ ン 
クシ ョ ン ・ キ ー か ら 始 まる 5 個 の プロ グラ マブ ル ・ フ ァ ン クシ ョ ン ・ キ ー を , テキ 
スト ・ ス クリ ー ン 最 下 段 の 定位 置 に 表示 し ます . 

た だ し , あら か じ め フ ァ ン クシ ョ ン ・ キ ー 表 示 モ ー ド が 指定 され て いる こと が 
必要 で す . 


ーーー control function keys display -- 一 


ORG 0C100H 

C100 214DC1 START: LD HL,PROMPT 
C103 CD44C1 CALL DSPMSG 
C106 CD750F CALL OF75H : input a character from keyboard 
C109 CD5702 CALL 0257H j echo-back the character 
C10C FE03 CP 03H 
C10E CA665C JP  Z,5C66H 
C111 FE79 " CcP 7 
C113 280E JR  Z,YES 
C115 FE59 ヶ CP WE 
C117 280A JR  Z,YES 
C119 FEG6E CP ^n" 
C11B 281E JR  Z,NO 
C11D FEAE CP *N^ 
C11F 281A JR  Z,NO 
C121 18DD JR START 
C123 3EFF YES:  LD 8A,OFFH 1 
C125 3260EA LD (0EA60H) ,A H 
C128 2167C1 LD HL , NUMBER 日 
C12B CD44C1 CALL DSPMSG H 
C12E CD750F CALL OF7SH ij display appointed function key ぉ 
C131 CD5702 CALL 0257H 日 
C134 D631 SUB 17 H 
C136 CDC907 CALL 07C92H H 
C139 18C5 JR START 5 
C13B AF NO:  XOR A 1 
C13C 3260EA LD (0EA60H) ,A j not display function keys 
C13F CD2EOB CALL 0B2EH H 
C142 18BC JR START 

) display message SubCoutine 
C144 7E DSPMSG:LD A,(HL) 
C145 AZ AND み A 
C146 C8 RET Z 
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C147 CD5702 
C14A 23 
C14B 18FZ 


で ー・・・・ < 


C14D 0D0A6469 
C151 73706C61 
C155 79206675 
C159 6E637469 
C15D 6F6E206B 
C161 6579203F 
C165 2000 


CALL 0257H : display a character 


INC 
JR 


HL 
DSPMSG 


me ら =89 ど 6 8FeGa 


ROMPT:DEFB 0DH,0AH, “display function.key ? “,0 


C167 0D0A2064 NUMBER:DEFB 0DH,0AH, display from number ff・^,0 


C16B 6973706C 
C16F 61792066 
C173 726F6D20 
C177 6E756D62 
C17B 65722066 
C17F AS500 


C181 


\G6C100 


display function key 
display function key 
display from number 
display function key 
display from number 
display function key 
display from number 
display function key 
display from number 
display function key 
display from number 
display function key 
display from number 
display function key 
3 


END 


ざさ や ゃ 〇 や つや つや つや や で や の 〇 つ 
ひく ロロ く らく の く いく くっ 
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0:8F 7 日 デキ スト ・ ス クリ ー ン の モー ド 


紅 


アド レス | 08F7H 
| 機 能 | テキ スト ・ ス クリ ー ン の モー ド 設 定 


レジ スタ | AFBCDEーー 


解 。 説 | 以下 に 示す 各 レ ジス タ に 与え る 入力 パラ メー タ に より , CR 十 の テ 
キス トス クリ ー ン に 関す る モー ド 設 定 を 行い ます . 
レジ スタ B…… ファ ンク ショ ン ・ キ ー 表 示 を 行う 場合 に は FFH を , ファ ン 
クシ ョ ン ・ キ ー 表 示 を 行わ な い 場 合 に は 0 0H を 与え ます . 
レジ スタ C…… カラ ー・ モ ー ド の 場合 に は FFH を , 白黒 モー ド の 場合 に は 
0 0H を 与え ます . 




















サン プル 


ーーー- change text screen mode 一 


ORG 0C100H 


j display prompt message and get 1 parameter 


C100 2166C1 LD HL,CONSOL 

C103 CDSDC1 CALL DSPMSG 

C106 CD3AC1 CALL INDEC 

C109 1C INC E 

C10A 7B LD  AjE 

C10B 325EEA LD (0EASEH) ,A j Se number of scrol 1] gtart line 


get 2nd parameter 


C10E CD58C1 CALL DSPCOM 

C111 CD3AC1 CALL INDEC 

C114 7B LD AL,E 

C115 325DEA LD (0EASDH ) ,A j Set lines of scrol 1 area 


ge 上 3rd parameter 


C118 CD58C1 CALL DSPCOM 

C11B CD3AC1 CALL INDEC 

C11E AF XOR A 

C11F 1C INC E 

C120 1D DEC E 

C121 2802 JR _ Z,NO 

C123 3EFF LD  A,OFFH 

C125 4 NO: LD B,A j set display function keys or no セ 


H 
j ge 4th parameter 
H 


C126 CD58C1 CALL DSPCON 
C129 CD3AC1 CALL INDEC 
C12C AF XOR A 

C12D 1C INC E 

C12E 1D DEC E 

C12F 2802 JR Z,BU 
C131 3EFF LD A,OFFH 
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C133 4F 


C134 CDF708 
C137 C3665C 


C13A 1E00 
C13C 3E30 


C13E FS 
C13F 7B 
C140 87 
C141 87 
C142 83 
C143 8 
C144 SF 
C145 F1 
C146 D630 
C148 83 
C149 SF 


C14A CD7S0F 


C14D FE3A 
C14F DO 
C150 FE30 
C152 D8 


C153 CD5702 
C156 18E6 


C158 3E2C 
C15A C35702 


C15D 7E 
C1SE AZ 
C1SF C8 
C160 CD5702 
C163 23 
C164 18FZ 


C166 0D0A636F 
C16A 6E736F6C 
C16E 652000 


C171 


\GC100 


console 0,25。 


\GC100 


NH LD C,A j se color mode or b/ ぃ mode 


main uorks of change tex screen mode 


ーー・ の 


CALL 08F7H j※change tex 二 上 screen mode 


JP 5C66H 3) jump 上 o =yStem moni モ or 
input a decimal number subroutine 


H 
H 
H 
H outputs  : binary code less than 256 in register @e 
1 destroy= : register afT。e 
H 
INDEC: LD E,0 initialize a inpu number 

LD A。 "07 j initialize a input charac て er 


TNDEC1 :PUSH AF 


LD AE H 

ADD A,A H 

ADD  A,A H 

ADD A,E H 

ADD AA ) e <ー- e ※ 10 + inpu number 

LD  E,A 9 

POP AF 

SUB "0" H 

ADD AE H 

LD  E,A H 
H 

CALL OF7SH 3』 inpu セ a character from keyboard 
H 

CP 7 の 9"+1 

RET _NC 

CP ^0" 

RET C 

CALL 0257H j echo-back a character 

JR INDEC1 


display a comma Subrouine 
deatCoyS : acCCumu]l a モ OF 


ISPCOMELD  A・。 


JP 0257H display a character 


disp]lay message Subrou モ ine 
de=tCoy5S : acCCumula モ or 


SPMSG iLD A,(HL ) 
AND A 
RET Z 
CALL 0257H 
INC HL 
JR DSPMSG 


display a characer 


me=89 ど G 8 ビ @8 


〇 ーー 


ONS0L :DEFB 0DH,0AH,“console “,0 


END 


0,1 


console 10,10,1.0 


甘 
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0 93AH テキ スト ・ ス クリ ー ン 表示 文字 数 の 設定 


アド レス | 0 9 3 AH 
機 能 | テキ スト ・ ス クリ ー ン 表示 文字 数 の 設定 
レジ スタ | AFBCDEーー 











解 " 説 | テキ スト ・ ス クリ ー ン に 表示 され る 最大 の 文字 数 を , レジ スタ B に 
格納 され た 桁 数 お よび レジ スタ C に 格納 され た 行 数 に 設定 し ます . 

通常 の 場合 , 桁 数 と し て は 80/72/40/36 を 指定 し , 行 数 と し て は 2 
5/2 0 を 指定 し ます が , BAS TIC で は “Tllegal function call" エラ ー が 発生 
する よう な 組み 合わ せ , 例え ば 1 0 桁 x 1 0 行 等 も 指定 する こと が 可能 で す . 














サン プル 


ーー- change tex モ screen mode and ぃ idth 一 


ORG 0C100H 


input the 1 parameter of ぃ idth 


C100 2176C1 LD HL,MUIDTH 

C103 CDED52 CALL 52EDH j display the message of uidth 
C106 CDS8C1 CALL INDEC 

C109 43 LD BLjE j se uidth x in register b 


input the 2nd parameter of uidth 


C10A 3E2C LD AA 
C10C CDS702 CALL 0257H 
C10F CDS58C1 CALL INDEC 
C112 4B LD CE ) se も uidth y in register で 
C113 C5 PUSH BC : Save Parameters of uidth 


inpu the 1=t parameter of console 


C114 2181C1 LD HL ,CONSOL 

C117? CDED52 CALL - 52EDH j display the message of console 
C11A CDS58C1 CALL INDEC 

C11D 1C INC E 

C11E 7B LD AE 

C11F 325EEA LD (0EASEH) ,A ) se number of scro] 1 atart line 


input the 2nd parameter of console 


C122 3E2C LD AL 7 ュ 7 

C124 CDS5702 CALL 0257H 

C127 CD58C1 CALL INDEC 

C12A 7B LD AE 

C12B 325DEA LD (0EAS5DH) ,A j) set ]ines of scrol 1 area 


input the 3rd parameter of console 


C12E 3E2C LD 。 A ソ の 
C130 CDS702 CALL 0257H 
C133 CD58C1 CALL INDEC 
C136 AF XOR A 

C137 1C INC E 

C138 1D DEC E 

C139 2802 JR  Z,NO 
C13B 3EFF LD  A,OFFH 
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C13D 


C13E 
C140 
C143 
C146 
C147 
C148 
C149 
C14B 
C14D 


C14E 


C151 
C152 


C155 


C158 
C15A 


C15C 
C15D 
C1S5E 
C1SF 
C160 
C161 
C162 
C163 
C164 
C166 
C167 


C168 


C16B 
C16D 
C16E 
C170 


C171 
C174 


C176 
C17A 
C17E 
C181 
C185 
C189 


C18C 


4? 


3E2C 
CD5702 
CD58C1 
AF 

1C 

1D 
2802 
3EFF 
4F 


CDF708 


C1 
CD3A09 


C3665C 


1E00 
3E30 


F5 
7B 
8?7 
87 
83 
87 
5F 
F1 
D630 
83 
SF 


CD7S0F 


FE3A 
DO 
FE30 
D8 


CD5702 
18E6 


0D0A7769 
64746820 
202000 
0D0A636F 
6E736FeC 
652000 


6C100 


ぃ 1dth 


10,25 


0 LD B,A j et display function keys or no 


input the 4 モ h parameter of console 


ーー そ 


LD AA ア ッ 

CALL 0257H 

CALL INDEC 

XOR A 

INC E 

DEC E 

JR  Z,BM 

LD  A,OFFH 

LD C,A j set color mode or b/ ぃ mode 


Just change も tex て screen mode and ぃ idth 


<・ の 
= 


CALL 08F7H j change text screen mode 


POP BC j resave parameters で 千 uidth 
CALL 093AH j※change tex screen uidth 


JP 5C66H j jump to system moni モ or 


input a decimal number subroutine 


け 

H 

日 

H outpu セ ts  : binary code less than 256 in register e 
H destroys= : register af,e 

H 

INDEC: LD E j initialize a input number 

LD A ) initialize a inpu character 


H 

INDEC1 :PUSH A 
LD A 
ADD A 
ADD A 
ADD A 
ADD A 
LD E 
POP Al 

SUB 

ADD A 

LD E 


reg-e ベー- reg-e ※ 10 + the number 


CALL OF7S5H inpu モ a charcter from keyboard 


CP 9+1 
RET NC 
CP 07 
RET C 


CALL 0257H 
JR INDEC1 


echo-back the character 


me ララ 89@G 8 じ @8 


ここ 


IDTH: DEFB 0DH,0AH, "uidth 0 


CONSOL :DEFB 0DH,0AH, "console “,0 


END 


console 0,25,0,0 


甘 
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0 9A3H テキ スト ・ ス クリ ー ン 表示 桁 数 の 設定 





アド レス | 09A3H 
機能 | テキ スト ・ ス クリ ー ン 表示 桁 数 の 設定 
レジ スタ | AFBCDEHL 


























解説 | テキ スト ・ ス クリ ー ン の 1 ライ ン 中 に 表示 する 最大 の 桁 数 を , アキ 
ュ ム レー タ に 格納 され た 桁 数 に 設定 し ます . 

通常 の 場合 は , 80 プ 7 2/40 グ 3 6 桁 を 指定 し ます が , BASTIC で は 
“Tllegal function call" エラ ー が 発生 する よう な 設定 も 行う こと が で きま す . 





サン プル 





ーーー change uidth x of tex モ screen -ーー 


ORG 0C100H 


get 1=t parameter of ぃ idth 


C100 213FC1 LD HL ,MIDTH 

C103 CD36C1 CALL DSPMSG 

C106 CD13C1 " CALL INDEC } 1nPut a parameter in regi5ter @e 
C109 CD31C1 CALL DSPCOM j display a comma 

C10C 7B LD AE j Bet ぃ 1dth x in accumu]l a モ or 


jus モ change width x of text screen 


C10D CDA309 CALL 09A3H j※change ぃ idth x of tex て t gcreen 


C110 C3665C JP 5C66H ) Jump to ytem moni モ or 
input a decimal number =ubCoutine 


outputs  : binary code less than 256 in regigster e 
dsstroyS= : regiSter a,f,e 


て 


C113 1E00 NDEC: LD E,0 3 ini も ialize a input number 

C115 3E30 LD A。 07 3j initialize a inPpu character 
H 

C117 F5 INDEC1 :PUSH AF H 

C118 7B LD AE 日 

C119 87 ADD  A,A 3 

C11A 87 ADD AA 日 

C11B 83 ADD AE H 

C11C 8 ァ 7 ADD  A,A j e <ー- e ※ 10 + input number 

C11D SF LD E,A 日 

C11E F1 POP AF H 

C11F D630 SUB "0" 日 

C121 83 ADD AE H 

C122 SF LD E,A H 

C123 CD750F CALL OF75H : input a character from keyboard 
5 

C126 FE3A CP ^ の“+1 

C128 DO RET _NC 

C129 FE30 CP ^0" 
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C12B D8 


C12C CD5702 
C12F 18E6 


ロー ーー ーー・ 


C131 3E2C 
C133 C35702 


ロー ーー ーー 


C136 7E 
C137 AZ 
C138 CS 
C139 CD5702 
C13C 23 
C13D 18F7 


ーー 


C13F 0D0A7769 
C143 64746820 
C147 00 


C148 


\GC100 


uidth 20, 

革 

0k 

Print =tring ま (255,"X 
9 
XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXX 

0k 


display a comma Subroutine 
de モビ oy ツラ acCcumu la モ or 


SPCOM:LD 


display mes5age SubCou モ ine 
de モエ Coy ら 8 acCCumul a モ or 


SPMSG:LD 


me らき 8 ど 8 じ @8 


IDTH: DEFB 0DH,0AH, “uidth 


0 


echo-back a character 


display a character 


display a character 


0 9D7H テキ スト ・ ス クリ ー ン 表示 行 数 の 設定 


アド レス | 0 9D7H 
機 能 | テキ スト ・ ス クリ ー ン 表示 行 数 の 設定 
レジ スタ | AFBCDEHL 











解 " 説 | テキ スト ・ ス クリ ー ン の 1 画面 中 に 表示 する 最大 の 行 数 を , アキ ュ 
ベ ピ ワーク に 栓 博 さ れ た 4 数 に 設定 し ます . 


通常 の 場合 は , 2 5 行 / 2 0 行 を 指定 し ます が , BA S I C で は “Illegal func- 
tion call" エ ラー が 発生 する よう な 設定 も 行う こと が 可能 で す . 


ーーー chanoge ぃ id て h y of tex 上 screen ーー 


ORG 0C100H 


get 2st parameter of uidth 


C100 213FC1 LD HL,MIDTH 

C103 CD36C1 CALL DSPMSG 

C106 CD31C1 5 CALL DSPCONM j display a comma 

C109 CD13C1 CALL INDEC ) input a parameter in regi ら ter @ 
C10C 7B LD AE 』 Set uidth y in accumul ator 


just change uidth y of tex モ screen 


C10D CDD709 CALL 09D7H j※change uidth y of text screen 
C110 C3665C JP SC66H ) jump て to system moni1 モ or 
input a decimal number subroutine 


outputs  : binary code less than 256 in register e 
destroy5= : regiSter af,e 


ュー 


C113 1E00 NDEC: LD E,0 ) initialize a inpu number 

C115 3E30 LD AA 07 j initialize a inpu セ t character 
H 

C117 F5 INDEC1 :PUSH AF H 

C118 7B LD AE 日 

C119 87 ADD A,A 5 

C11A 87 ADD A,A 5 

C11B 83 ADD A,E H 

C11C 87 ADD AA ) e <ーー- e ※ 10 + input number 

C11D 5F LD  E,A H 

C11E F1 POP AF H 

C11F D630 SUB “0" H 

C121 83 ADD AE H 

C122 SF LD  E,A H 

C123 CD750F CALL OF75H :』 input a character from keyboard 

C126 FE3A CP 1 9> す 1 

C128 DO RET NC 

C129 FE30 CP 0 

C12B D8 RET C 
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C12C CD5702 CALL 0257H j echo-back a character 
C12F 18E6 JR INDEC1 


j display a comma Subroutine 
) de モビ oy5 : acCCumul a モ or 
C131 3E2C DsPcOMiLD Au 
C133 C35702 JP 0257H j display a characer 
H 
j display message SubCoutine 
日 de st モ 上 CoyS : 8aCCumula モ or 
C136 7E DsPMSGiLD 。 A,(HL) 
C137 A ァ 7 AND A 
C138 C8 RET Z 
C139 CD5702 CALL 0257H ) display a character 
C13C 23 INC HL 
C13D 18F7 JR DSPMSG 


me=89@G aP@e8a 


< 


C13F 0D0A7769 MIDTH: DEFB 0DH,0AH, "uidth 「,0 
C143 64746820 


C147 00 


C148 END 


\GC100 


ぃ idth ,25 
※ 


09F6 





アド レス 








機能 








レジ スタ 











解説 





H CRT の 2 5 行 モ ー ド 用 イニ シア ライ ズ 


09F6H 
CRT の 2 5 行 モ ー ド 用 イニ シア ライ ズ 
AF 一 一 一 日 し 


DMA コ ント ロー ラ (PD82 5 7) お よび CRT コ ント ロー ラ 


(PD3301) を 2 5 行 モ ー ド 用 に イニ シア ライ ズ し ます . 
イニ シア ライ ズ 時 に は , 0A68H-0A6CH 番 地 の デ ー タ ・ テ ー ブ ル を 使 


用 し ます . 








サン プル 








C100 DB09 
C102 CB47 
C104 CA665C 


C107 2140C1 
C10A CD37C1 
C10D CDF609 
C110 CD28C1 


C113 DB09 
C115 CB47 
C117 CA665C 


C11A 215EC1 
C11D CD37C1 
C120 CDSE0A 
C123 CD28C1 


C126 18D8 


C128 3EOF 
C12A OEFF 
C12C 06FF 
C12E 10FE 
C130 0D 
C131 20F9 
C133 3D 
C134 20F4 
C136 C9 


C137 7E 
C138 AZ 
C139 C8 
C13A CD5702 
C13D 23 
C13E 18FZ 
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j ーーー 25 or 20 1ines on text screen 一 
ORG 0C100H 
LOOP: IN  A,〈09H) 


BIT 0,A 
JP Z,5C66H 


jump to system monitor if stop key 


LD HL,MS625 
CALL DSPMSG 


CALL 02F6H j※initialize for 25 lines mode 
CALL MAIT 
" IN A,(02H) H 
BIT 0,A j jump to system monitor i 千 stop key 


JP Z,5C66H 


LD HL,MSG620 
CALL DSPMSG 
CALL 0OAS5EH ji※initialize for 20 lines mode 
CALL MAIT 
JR LOOP 
いり a1 七 =ubroutine 


destroy5 : regi ら ter af,b,c 


H 
MAIT: LD AA,0FH 
MAIT1: LD C,OFFH 
MAIT2: LD B,OFFH 
MAIT3: DJNZ UAIT3 
DEC C 
JR NZ ,MAIT2 
DEC A 
JR NZ ,MAIT1 
RET 


di =p 1 ay me ヨ a58age らい DFOu モ ine 


ロー ーー 


de モビ oy : 8aCCumul a モ or 
SPMSG iLD A,(HL) 
AND A 
RET Z 
CALL 0257H j display a character 
INC HL 
JR DSPMSG 


C140 
C144 
C148 
C14C 
C150 
C154 
C158 
C15C 
C15E 
C162 
C166 
C16A 
C16E 
C172 
C176 
C17A 


C17C 


0D0A3235 
206C696E 
65732070 
61722074 
65787420 
73637265 
656E2021 
2100 

000A3230 
206C696E 
65732070 
61722074 
65787420 
73637265 
656E2021 
2100 


\GC100 


25 lines par 
20 lines par 
25 1ines par 
20 lines par 
25 lines par 
20 1]ines par 
25 1ines par 
20 1ines par 
25 lines par 
20 1ines par 
25 1ines par 
20 lines par 
25 1ines par 
20 lines par 
25 lines par 


3 


mea5a9e aC@a 


H 
MSG25: DEFB 0DH,0AH, "25 1ines par text screen 


MSG20: DEFB 0DH,0AH, “20 1ines par text screen 


て tex も 
tex セ モ 
tex キ 
て tex も 
て tex 
tex モ 
tex キ 
て tex 
tex モ 
tex モ 
tex モ 
tex モ 
tex モ 
て tex 
tex モ 


END 


CFPeen 
SCFeGen 
SCFeG@en 
3CFGen 
SCFeen 
SCFeGen 
ScCCPeen 
CFGen 
SCFe@en 
CFG@Gn 
SCFe@en 
SCFGen 
Screen 
CFG@en 
SCFeGGn 


ぅ 0 


ぁ 0 
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0A5EH CRT の 2 0 行 モ ー ド 用 イニ シア ライ ズ 


アド レス 








機 


レジ スタ 


能 








解説 








C100 
C103 


C106 
C109 


C10C 
C10E 


C111 
C113 
C115 
C117 


C119 


C11B 
C11E 


C120 
C123 


C125 
C126 
C127 
C128 
C12B 
C12C 


C12E 
C132 
C136 
C13A 
C13E 
C142 
C146 
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212EC1 
CD2SC1 


CD?50F 
CDS702 


FE03 
CA665C 


FE31 
2806 
FE32 
2807 


18E5 


CDF609 
18E0 


CDSE0A 
18DB 


7E 
AZ 
C8 
CD5702 


18F ァ 7 


000A3235 
20636861 
72616374 
65727320 
6D6F6465 
202D2D20 
312020 


0A5EH 


CRT の 2 0 行 モ ー ド 用 イニ シア ライ ズ 
AF 一 一 一 日 L 


DMA コ ント ロー ラ (PD82 5 7) お よび CR コン トロ ー ラ 
(zPD3301) を 2 0 行 モ ー ド 用 に イニ シア ライ ズ し ます . 

イニ シア ライ ズ 時 に は , 
用 し ます . 


ORG 


START: LD 
CALL 


CALL 
CALL 


CP 
JP 


CP 
JR 
CP 
JR 


JR 


INIT25:CALL 
JR 


INIT20:CALL 
JR 


H 

H 

DSPM3GiLD 
AND 
RET 
CALL 
INC 
JR 


で ーー 


ROMPT:DEFB 


0A6DH-0A7 1H 番 地 の デ ー タ ・ テ ー ブ ル を 使 


ーーー initialize cr and dma control ler 一 


0C100H 


HL , PROMPT 
DSPMSG 


0F75H j 1input a character from keyboard 
0257H j echo-back the character 


03H 
Z,5C66H j jump to system monitor iT gtop key 


Z, INIT25 
レシ 
Z, INIT20 


START 


09F6H j※initialize for 25characters mode 
START 


0ASEH ji※initialize for 20characters mode 
START 


displ ay message Subrou モ ine 


detCoy ヨ : acCCumul a モ or 


A。(HL ) 

A 

Z 

0257H j display a character 
HL 

DSPMSG 


me=89G 8"@a 


0DH,0AH, “25 characters mode 一 1 


C149 0D0A3230 
C14D 20636861 
C151 72616374 
C155 65727320 
C159 6D6F6465 
C15D 202D2D20 
C161 322020 
C164 0D0A2020 
C168 20202020 
C16C 20202020 
C170 20202020 
C174 776869263 
C178 68203F20 
C17C 00 


C17D 


き 6C100 


25 
20 


25 
20 


25 
20 


25 
20 


25 
20 


※ 


Characters 
characters 


characters 
characters 


characters 
characters 


characters 
character ら 


characters 
characters 


mode 一 
mode 一 
ぃ hich ? 
mode ーー 
mode 一 
uhich ? 
mode 一 
mode 一 
uhich ? 
mode 一 
mode 一 
uhich ? 
mode 一 一 
mode 一 
uhich ? 


DEFB 0DH,0AH, "20 characters mode -- 2 


DEFB 0DH, 0AH, “ 


END 


いい は いい ほ はい は いい は は いい は 


uhich ? 


ヵ 0 
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0A73H ファ ンク ショ ン ・ キ ー・ リ スト 





アド レス 








機 


能 





レジ スタ 











解 





説 





お く こ と が で きま す が , 


0A73H 


ファ ンク ショ ン ・ キ ー・ リ スト 
AFBーDE ビ ーー 


BASIC の KEYL I ST と 同様 に . すべ て の プロ グラ マブ ル ・ 
ファ ンク ショ ン ・ キ ー の 定義 内 容 の リス ト を 画面 上 に 表示 し ます . 
ファ ンク ショ ン ・ キ ー の 定義 内 容 の 一 部 は テキ スト 画面 の 最 下 段 に 表示 させ て 


画面 に 表示 させ る こと が で きま す . 


サン プル 


C100 
C103 


C106 
C109 


C10C 
C10E 
C110 
C112 
C114 


C11? 
C11A 


C11C 
C120 
C124 
C128 
C12C 
C130 
C134 


C137 





211CC1 
CDEDS2 


CD7S50F 
CD5702 


FE?9 
2807 
FE59 
2803 
C3665C 


CD730A 
18E4 


0D0A6675 
6E637469 
6F6E206B 
6579206C 
69737469 
6E677320 
3F2000 


%GC100 


ORG 


START: LD 
CALL 


CALL 
CALL 


CP 
JR 
CP 
JR 
JP 


YES: CALL 
JR 


0C100H 


HL , PROMPT 
52EDH 


0F7SH 
0257H 


Z, YES 
ヤン 


Z, YES 
SC66H 


0A73H 
START 


me896G 8 ビ @Ga 


この シス テム ・ サ ブル ー チ ン で は , その すべ て の 内 容 を 


ーーー function key ] 1i ョ tingS ーー 


j display the messagoe 


# 1inPu モ a character from keyboard 
j echo-back the character 


j jump to system monitor if not yes 


jXdisplay function key ] istings 


H 
H 
PROMPT iDEFB 0DH,0AH, "function key ]1istings ? “,0 


END 


function key listinga ? ッ 
files 


moun モ 


FemOv@ 


1 i ョ モ 
Fun 


円 


function key 


3 
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1oad' 

ョ ave 

name" 

ki11" 
un " 


listings ? n 








N 一 BAS | C の 主要 デー タ 領 域 


0675H-06AsH 
10E5H-117CH 
1838H-1874H 
1FC9H-1FCEH 
1FFFH--1FFBH 
24F2H-24F5H 
24F6H-25F2H 
2B26H-2B2DH 
30D4H-3147H 
3148H-3151H 
3233H-3253H 
2EAH-32F5sH 
340H-3347H 
348H-335CH 
3398H-33BCH 
33BDH-3466H 
3467H-34C0OH 
34C1H-34F4H 
34F5H-37A7H 
37A8H-37BCH 
37C9H-37FOH 
37F1H-3A04H 
3A05H-3B5AH 
3B5BH-3B5FH 
3B60H-3B6sH 
3B66H-3B6BH 
48ACH-48BEH 
49D7H--ー49E7H 
5BFOH-5BFFH 
5C6FH-5C92H 


て っ 。 て う で っ 


テキ スト ・ ス クリ ー ン 先頭 アド レス ・ デ ー タ 
キテ ガー ドッ マル リク ス 区 柄 デ ー タ 

N 一 BA S IC の タイ トル ・ メ ッ セ ー ジ 
“Bad CRLHF " メッ セー ジ 
“Found :" お よび “Skip :" 
単 精 度 実数 型 の 1 

log 演 算 用 の デー タ 

単 精度 実数 型 の 1 0 0 お よび 1 0 

単 精 度 実数 型 お よび 倍 精度 実数 型 の デー タ 笑 

1 6 進数 か ら 1 0 進数 へ の 変換 デー タ 

exp 演算 用 の デー タ 

乱数 発生 用 の デー タ 

三角 関数 演算 用 の デー タ 

sin 演算 用 の デー タ 

atn 演 算 用 の デー タ 

中 間 言 語 か ら 処理 ルー チン へ の 分 岐 テ ー ブ ル 
関数 中 間 言 語 か ら 処理 ルー チン へ の 分 岐 テ ー ブ ル 
頭 女 字 と キー ワー ド 格 納 アド レス の イン デ ク ス 
キー ワー ド と 中 間 言 語 の 変換 テー ブル 

特殊 記号 と 中 間 言 語 の 変換 テー ブル 

型 変換 お よび 演算 ルー チン へ の 分 岐 テ ー ブ ル 
エラ ー・ メ ッ セ ー ジ ・ テ ー ブ ル 

ワー ク ・ エ リア の 初期 デー タ 


“in "メッ セー ジ 


メッ セー ジ 


^Ok CRLF " メッ セー ジ 

^Break" メッ セー ジ 

^ 2 Redo from start CRLF "メッ セー ジ 
^ 2 Extra ignored CREF "メッ セー ジ 
“Undefined line "メッセージ 
機械 語 モ ニタ の コマ ンド ・ テ ー ブ ル 
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0B18H ブー ト ・ ス トラ ッ プ ・ ロ ー ダ 





アド レス | 0B18H 
機 能 ] ブー ト ・ ス トラ ッ プ ・ ロ ー ダ 
レジ スタ | AFBCDEHL 


ミニ ・ フ ロッ ピ ・ デ ィ ス ク ・ ユ ニッ ト (PC-8031, PC80 
31 一 2W, PC 一 80S3 1 相当 ) の , ドラ イブ 1, トラ ッ ク 1, セク タ 1 か 
ら 2 5 6 バイ ト の デー タ を 読み 出し , C 0 0 0HーC0FF 昌 番地 に 格納 後 , エ ラ 
ー が 発生 し な けれ ば C 0 0 0 HH 番 地 に ジャ ンプ し ます . 

エラ ー が 発生 し た 場合 に は , EDC 7 H 番 地 に 0 0 H を 格納 する の み で も どり 
ます . 

この シス テム ・ サ プルー チ ン は , BA S I C が コー ルド ・ ス ター ト す る 際 に , 
ディ スク ・ ユ ニッ ト が 接続 され て いれ ば 必ず コー ル し ます . 











7/ 


ーーー boot strap loader 一 

ORG 0C100H 
C100 2147C1 LABEL1:LD HL , PROMPT 
C103 CD3EC1 CALL DSPMSG 
C106 CD750F 1 CALL OF75H 3 input a character from keyboard 
C109 CDS702 CALL 0257H ij echo-back the character 
C10C FE03 CP 03H 
C10E CA665C JP  Z,5C66H 
C111 FE79 cP の " 
C113 2804 JR  Z,LABEL2 
C115 FE59 CP 2W バ 
C117 20E7 JR NZ,LABEL1 
C119 2166C1 LABEL2:LD HL,SURE 
C11C CD3EC1 CALL DSPMSG 
C11F CD750F ・ CALL OF75H j input a character from keyboard 
C122 CD5702 CALL 0257H ) echo-back て the character 
C125 FE03 " CP 03H 
C127 CA665C JP Z,5C66H 
C12A FE79 - cP 7 
C12C 2804 JR  Z,LABEL3 
C12E FE59 CP XY 
C130 20CE JR NZ,LABEL1 
C132 CD180B LABEL3:CALL 0B18H 3※boot =trap loader 
C135 2185C1 ! LD HL ,ERROR 日 
C138 CD3EC1 CALL DSPNMSG : diaplay error message and exi モ 
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C13B 


C13E 
C13F 
C140 
C141 
C144 
C145 


C147 
C149 
C14D 
C151 
C155 
C159 
C15D 
C161 
C165 
C166 
C168 
C16C 
C170 
C174 
C178 
C17C 
C180 
C184 
C185 
C187 
C18B 
C18F 
C193 
C197 
C19B 


C19E 


C3665C 


7E 
AZ 
C8 
CD5702 


18F?7 


0D0A 
626F6F74 
20746865 
20646973 
6B2D6261 
73696320 
61676169 
6E203F 20 
00 

0D0A 
6974206D 
65616E73 
20636F6C 
64207374 
6172742C 
20737572 
65203F 20 
00 

0D0A 
63616E27 
74206C6F 
61642074 
68652049 
504C2021 
21070 り 


\GC100 


boot 


the disk- 


it means cold 


boo セ 


the disk-| 


it means cold 


boot 


the disk- 


JP 5C66H 


display message Subroutine 


日 

日 

H 

H 1nputs : top address of message in register h1 
H destroys : register a, げ ,h, 1 
H 

D 


SPMSG:LD  A,(HL) 
AND A 
RET Z 
CALL 0257H 3) display a character 
INC HL 
JR DSPMSG 


meS ラ ageG aP@ea 


ROMPT:DEFB 0DH,0AH 
DEFB "boot the disk-basic again ? ^,0 


イー 


SURE: DEFB 0DH,0AH 
DEFB “it means cold start, sure ? ^,0 


ERROR: DEFB 0DH,0AH 
DEFB “can““t 1oad the IPL !!7,07H,0 


END 


basic again 
tar モ 。 ョ ure 
basic again 
tar モ 上 。 aure 
basic again 


ざ や つや つつ 
に 全 友 、 屋 - < 


can"t load the IPL !! 


3 
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0B2EH テキ スト ・ ス クリ ー ン 最 下 段 の 消去 





アド レス | 0B2EH 
機 能 | テキ スト ・ ス クリ ー ン 最 下段 の 消去 
レジ スタ | AFBCDEHL 























解 説 | CRT テ キス ト ・ ス クリ ー ン の 最 下 段 を 消去 し ます . 

BA SIC で は , この シス テム ・ サ プ ブルー チン を , ファ ンク ショ ン ・ キ ー 表 示 
エリ ア を 消去 す る た め に 使用 し て いま す が , 実際 に ファ ンク ショ ン ・ キ ー 表 示 を 
行う か 否 か は , ワー ク ・ エ リア EA6 0 H 番 地 の 内 容 が 0 0 H か FFH か に よっ 
て 決定 し ます . 


サン プル 





ーーー b1 ink the function key digp1 ayーーー 


ORG 0C100H 
C100 3EFF LOD  A,OFFH 
C102 3260EA LD (0EA60H) ,A j turn on the function key display 
C105 DB09 BLINK: IN A,(09H) H 
C107 CB4?7 BIT 0,A ) jump to system monitor if stop key 
C109 CA665C JP  Z,5C66H H 
C10C 2142C1 LD HL,MSGDSF 
C10F CD39C1 CALL DSPMSG 
C112 CDC207 CALL 07C2H j display function key 
C115 CD2DC1 CALL MAIT 
Ct18 DB09 5 IN A,〈09H) 
C11A CB47 BIiT 0,A : jump to system monitor if stop key 
C11C CA665C JP  Z,5C66H 日 
C11F 215CC1 " LD HL ,MSGERA 
C122 CD39C1 CALL DSPMSG 
C125 CD2EOB CALL 0B2EH jXerace the last line on screen 
C128 CD2DC1 CALL MAIT 
C12B 18D8 " JR BLINK 


uai モ subroutine 


destroys : Tlags only 


C12D CS MAIT: PUSH BC 

C12E OEFF LD C,OFFH 
C130 06FF MAIT1: LD B,OFFH 
C132 10FE MAIT2: DJNZ MAIT2 
C134 0D DEC C 

C135 20F9 JR NZ,MAIT1 
C137 C1 POP BC 

C138 C92 RET 


display mea5sage SuDCOu モ 1ne 


1nPu モ 5 : top address of message in register hl 
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C139 
C13A 
C13B 
C13C 
C13F 
C140 


C142 
C146 
C14A 
C14E 
C152 
C156 
C15A 
C15C 
C160 
C164 
C168 
C16C 
C170 
C174 


C175 


7E 

AZ 

C8 
CD5702 
23 
18F7 


0D0A6469 
73706C61 
79206675 
6E637469 
6F6E206B 
65792021 
2100 
0D0A6572 
る 1736520 
74686520 
6C617374 
206C6926E 
65202121 
00 


\GC100 


display function key 
erase the last line ! 
display function key 
erase the last line ! 
display function key 
erase the last line ! 
display function key 
erase the last line ! 
display function key 
erase the last line ! 
display function key 
erase the last line ! 
display function key 
erase the last line ! 
display function key 
erase the last line ! 
display function key 
erase the last line ! 
display function key 
erase the last line !! 


甘 


destroys : register af〒。h,1 


DSPMSG:LD A,(HL) 


ネー・ < < 


AND A 
RET Z 
CALL 0257H j display a character 
INC HL 
JR DSPMSG 
meS5ag9e 8 し @a 
SGDSP :DEFB 0DH,0AH, “display function key !!,0 


MSGERA:DEFB 0DH,0AH,“erase the last line !!".0 


END 
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0B9 2H グラ フィ ッ ク 座 標 レ キャ ラク タ 座 標 変換 


アド レス | 0B9 2H 
機 能 | グラ フィ ッ ク 座 標 セ キャ ラク タ 座 標 変換 


レジ スタ | AFーーーーHL 














解 ” 説 | レジ スタ 是 に 格納 され た 1 一 16 0 の セミ ・ グ ラフ ィ ッ ク 横 座標 お 
よび レジ スタ レル に 格納 され た 1 一 1 0 0 の セミ ・ グ ラフ ィ ッ ク 縦 座標 を , キャ ラ 
クタ 横 座標 お よび キャ ラク タ 縦 座標 に 変換 し ます . 


サン プル 





ューーー from "2001 : a space odyssey'" ーー 


ORG 0C100H 
C100 01FF00 LD BC,00FFH 日 
C103 CDF708 CALL 08F7H 
C106 0650 LD B,80 j console ,,0,1:uidth 80,25 
C108 OE19 LD  C,25 H 
C10A CD3A09 CALL 093AH 日 
H 
C10D 2100F8 LD HL,OF800H H 
C110 225AEA LD (0EASAH) , HL j color 7,0,1:print chr ま (12)3 
C113 CDSA04 CALL 045AH 5 
C116 3EO1 LD AaA,1 H 
C118 32E1C2 LD (CHECK ) , A H 
C11B 110A00 LD DE,10 H 
C11E DD21ESC2 LD IX,DATA 5 
C122 0632 LD B,50 j initialize uork area 
C124 CD42C2 MAIN1: CALL MAKED H 
C127 DD19 ADD IX,DE H 
C129 05 DEC B H 
C12A 20F8 JR NZ ,MAIN1 日 
日 
C12C 0601 LD  B,1 
C12E 0E3C MAIN2: LD  C,60 
C130 C5 MAIN4: PUSH BC 
C131 CD76C1 CALL STARS 
C134 C1 POP BC 
C135 CD36C2 CALL MAIT 
C138 0D DEC C 
C139 20F5 JR NZ ,MAIN4 
C13B 04 INC _B 
C13C 78 LD A,B 
C13D FEOF CP 15 
C13F 20ED JR NZ ,MAIN2 
5 
C141 0E0A MAIN6: LD C,10 
C143 C5 MAIN7: PUSH BC 
C144 CD76C1 CALL STARS 
C147 C1 POP BC 
C148 CD36C2 CALL MAIT 
C14B 0D DEC C 
C14C 20F5 JR NZ ,MAIN? 
C14E 04 INC B 
C14F 78 LD  aA,B 
C150 FE32 CP 50 
C152 20ED JR NZ , MAIN6 
C154 1614 LD D,20 
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C156 
C158 
C159 
C15B 


C1SE 
C160 
C161 
C164 
C165 
C166 
C168 
C169 
C16C 
C16E 


C171 
C172 
C175 


C176 
C17A 
C17D 
C17E 
C17F 
C182 
C183 
C184 
C186 
C188 


C189 
C18C 


C18D 
C1920 


C193 
C196 
C199 
C19C 
C19D 


C1A0 
C1A1 


C1A2 
C1A5 
C1A7 
C1AA 
C1AB 
C1AE 
C1AF 
C1B0 
C1B1 
C1B4 
C1B5 
C1B6 
C1B9 
C1BB 
C1BC 
C1BD 
C1BE 
C1BF 
C1CO 
C1C1 


1EC8 
7A 
FE02 
CC71C1 


0632 
DS 
CD76C1 
D1 

1D 
20F6 
15 
CC71C1 
20E8 
C3665C 


AF 
32E1C2 
C9 


DD21E5C2 
110A00 
C5 

DS 
CD89C1 
D1 

C1 

DD19 
10FS 

C ヶ 


DD3508 
CO 


DD7E09 
DD7708 


DD6E05 
DD6606 
DD7E07 
A7 

CA34C2 


AE 
77 


21A1C2 
1600 
DDSE00 
19 
DDZE01 
86 

47 

23 
DDZE02 
86 

4F 
DD3503 
200E 
23 

78 

86 

4? 

23 

79 

86 


MAIN5: LD E,200 
LD A,D 
CP 2 
CALL Z,EXIT 


MAIN3: LD B,50 
PUSH DE 
CALL STARS 
POP DE 
DEC E 
JR NZ ,MAIN3 
DEC D 
CALL Z,EXIT 
JR NZ , MAIN5 
JP SC66H 
EXIT: XOR A 
LD (CHECK ) ,A 
RET 


H 
1 moOve ら 上 arS SubCoutine 
H 
H 


destroyS : 


H 

STARS: LD IX,DATA 
LD DE,10 

STARS1 :PUSH BC 
PUSH DE 
CALL STAR 
POP DE 
POP BC 
ADD IX,DE 
DJNZ STARS1 
RET 


move 8 =tar =ubroutine 


destroy ョ : 


の ーー ーー ーー 
ゴ 
エ 
つろ 


DEC (IX+8) 
RET NZ 


LD Ar(1IX+9) 
LD (IX+8) ,A 


LD L,( IX+5 ) 
LD H,(IX+6 ) 
LD A,(TX+7 ) 
AND A 
JP Z,LESS 
XOR (HL) 
LD (HL ),A 

H 
LD HL , VECTOR 
LD D,0 
LD E,(IX) 
ADD HL,DE 
LD A,(TX+1 ) 
ADD  A,(HL) 
LD B,A 
INC HL 
LD 人 (TX+2 ) 
ADD  A,(HL) 
LD C,A 
DEC (IX+3) 
JR NZ , SEARCH 
INC HL 
LD AB 
ADD  A,(HL) 
LD B,A 
INC HL 
LD AA,C 
ADD  A,(HL) 


register a, 千 bc。d,e」h,1,ix 


register a, 和 ff。b,c,h,1 


get lsb byte of ]ast address 
get msb byte of last address 


ge last semi-grphic pattern code 


just clear the dot 


move て he tar 
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C1C2 
C1C3 
C1C6 


C1C9 
C1CA 
C1CC 
C1CE 
C1D0 


C1D2 
C1D3 
C1DS 
C1D?7 
C109 


C1DB 
C1DE 


C1E1 
C1E4 


C1E7 
C1E8 


C1E9 
C1EC 
C1EF 


C1F0 
C1F3 
C1F4 
C1F6 


C1F 
C1FD 
C1FE 
C201 


C202 
C203 
C204 
C205 
C206 
C207 
C20A 
C20D 


C20E 
C210 


C212 
C214 


C216 
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4F 
DD7E04 
DD?7703 


78 

FE01 
3822 
FE9C 
301E 
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FE01 
3819 
FE62 
3015 


DD7001 
DD7102 


CD02C2 
DD7707 


AE 
77 


DD7505 
DD7406 
C9 


3AE1C2 
A7 
2803 
C342C2 


DD360700 
AF 
32C9F8 
C? 


C5 
60 
69 
24 
2C 
CD920B 
CDF303 
C1 


CB40 
2004 


060F 
1802 


06F0 


SE 


ーー 
ul 


me < 


R 


っ 


LD 

LD 
ARCH:LD 
CP 
JR 
CP 
JR 


LD 
CP 
JR 
CP 
JR 


LD 
LD 


CALL 
LD 


XOR 
LD 


LD 
LD 
RET 


make a neu 
de て troy 


LD 
AND 
JR 
JP 


break a ol 
degtCoy 


ASE: LD 
XOR 
LD 
RET 


calculare 
1nput ら = 
〇 いり 上 pu ロモ 8 
destroy 


PUSH 
LD 
LD 
INC 
INC 
CALL 
CALL 
POP 


calculate 


BIT 
JR 


LD 
JR 


LD 


C,A H 

A,(TX+4 ) H 

(1X+3),A H 

AB H 

8 日 

C,NEU j check x on screen or no セ 

156 H 

NC , NEU H 

A,C H 

5 H 

C,NEU : check y on screen or no セ も 

28 H 

NC , NEU H 

(IX+1)B : store coordinate x 

(IX+2),C : 5tore coordinate 

CAL : calculate address and pattern 
(IX+7? ) ,A : store semi-graphic pattern code 
(HL ) ) pBe dot or prese モ do 

(HL),A : ju send a dot to video-ram 
(IX+5),L j) store ]sb byte of address on vram 
(IX+6),H : tore msb byte of address on vram 


tar Subroutine 


= : register a, 
A,(CHECK ) 

A 

Z,ERASE 

MAKED 


d star Subrou セ ine 
ョ : regiSter a 千 
(IX+7) 0 


A 
(0F8C9H) ,A 


vram address and pattern code =ubroutine 


: coordinate x base is zero in register b 
coordinate y base is zero in register Cc 
: address on video-ram in register hl 
Semi-graphic pattern code in accumul ator 
= : register af,b,c」h,1 
BC 
H,B 
L,C 
H 
L 
0B92H 3 ※COn ソ er 上 1n モ O CurSoOr Po5i せ ion 
03F3H : calculate address on vram 
BC 


=emi-graphic pattern code ecion 


0,B 
NZ ,N1 


B,O0FH 
N2 


B,OFOH 


C218 
C219 


C21B 
C21C 
C21E 
C220 


C222 
C223 
C225 
C227 


C229 
C22A 
C22C 
C22E 


C230 
C232 
C233 


C234 
C236 
C238 
C239 
C23B 
C23C 
C23E 
C23F 
C241 


C242 
C245 
C248 
C24C 
C250 
C253 
C256 
C259 
C25D 
C261 
C265 
C268 
C26B 
C26E 


C26F 
C272 
C274 
C276 
C278 
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E603 


3D 

2004 
3E22 
1810 


3D 

2004 
3E44 
1809 


3D 

2004 
3E88 
1802 


3E11 
A0 
C9 


0631 
3E32 
20 
1614 
15 
20FD 
3D 
20F8 
C9 


CD6FC2 
DD7700 
DD360150 
DD360232 
CD79C2 
DD7703 
DD?7704 
DD3605C9 
DD3606F8 
DD360704 
CD80C2 
DD7708 
DD7709 
C9 ヶ 


CD87C2 
E60F 
CB0? 
CB07 
C9 


LI 
いり 


いり 
リ 


ネー ーー 


ーー ーー 


デ 
ロ 
は 


2* LD A,C 
AND 03H 
DEC A 
JR NZ ,N3 
LD A,22H 
JR N4 

3 DEC A 
JR NZ ,NS 
LD A,44H 
JR N4 

5: DEC A 
JR NZ ,N6 
LD A,88H 
JR N4 

6* LD AA,11H 

4 AND B 
RET 


ua5Ste ff ュ モ ing 上 ime SubCoutine 
destroy5 : register a,f,b,d 


ESS: LD B,4? 
AITi LD  A,50 
SUB B 
AIT2: LD  D,20 
AIT1: DEC D 
JR NZ,MAIT1 
DEC A 
JR NZ ,MAIT2 
RET 


initialize work area for a neu sar 


1npu : top address of uork area in register ix 
outputs  : uork area indexed register ix 
destroyS : reg1Ster ね a, 千 


IAKED: CALL RND1 
LD (IX+0) ,A 
LD (IX+1 ) , 80 
LD (IX+2 ) , 50 
CALL RND2 
LD (IX+3) ,A 
LD (EX+4) 。A 
LD (IX+5) , 0C9H 
LD (IX+6) , OF8H 
LD (TX+?) ,04H 
CALL KRND3 
LD (TX+8) ,A 
LD (TX+9) ,A 
RET 


generate a random number multiply from 1 to 15 by 4 subroutine 


〇 u セ pu セ 5  : generated number in accumul ator 
dea モ Coy5 : regiSter a, 王 


CALL RSUB 
AND 15 
RLC A 
RLC AaA 
RET 


generate a random number from 1 to 8 subroutine 


OutputS  : generated number in accumulator 
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C279 
C27C 
C27E 
C27F 


C280 
C283 
C285 
C286 


C287 
C288 
C289 
C28B 
C28D 
C28E 
C291 
C292 
C295 
C296 
C298 
C29A 
C29C 
C29E 
C29F 
C2A0 


C2A1 
C2A5 
C2A9 
C2AD 
C2B1 
C2BS 
C2B9 
C2BD 
C2C1 
C2C5 
C2C9 
C2CD 
C2D1 
C2D5 
C2D9 
C2DD 


C2E1 
C2E3 
C2ES 
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CD87C2 
E607 
3C 

C ヶ 


CD87C2 
E603 
3C 

C9 


00FFFF00 
00FF0100 
01FFFF00 
01FF0001 
010000FF 
01000001 
010100FF 
0101FF00 
00010100 
0001FF00 
FF010100 
FF0100FF 
FF000001 
FF0000FF 
FFFF0001 
FFFF01FF 


の ー 


ND2: 


ーー ーー ーー・ 


ND3: 


スー・ ーー・ ーー < 


の 
選 
の 


で ーー 


CHECK: 


RNDM: 
DATA: 


ECTOR:DEFB 


ぃ ork 


destroys : register a, 下 
CALL RSUB 

AND 7 

INC Aa 

RET 


generate a random number from 1 to 4 subroutine 


generated number in accumul ator 


Outpu モ 5 
: register a, 


de モモ oy 


CALL RSUB 
AND 3 
INC _A 
RET 


generate a random number subroutine 


generated number in accumulator 


OutputS  * 
: register af 


destoy8 


PUSH DE 

PUSH HL 

LD AR 

LD D,0 

LD  E,A 

LD HL,(RNDM) 
ADD HL,DE 

LD (RNDN) ,HL 
LD AL 

RRC A 

RRC 
RRC 
RRC 
POP 
POP 
RET 


vector able of demonstration program 


DEFB 
DEFB 1,-1,-1.0 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB - 
DEFB - 
DEFB 
DEFB 
DEFB 


area of demonstration program 


DEFS 
DEFS 
END 








が PD3 す 93.0 1 の アト リピ ュー 


N 一 BASIC お よび N80 一 BAS IC で は , CRT テ キス ト ・ ス クリ ー ン の 
コ ント ロー ル を 実現 する た め に , PD 3 3 0 1 (プロ グラ マブ ル CRT コ ント 
ロー ラ ) を , 文字 コー ド ・ エ リア と アト リ ビ ュ ー ト ・ エ リア を 分 離し た トラ ンス 
ペア レン ト ・ ア トリ ビュ ー ト ・ モ ー ド て で 使用 し て いま す . 


アト リピ ビュ ー ト ・ コ ー ド トド 表 


























































































































モー ド カラー モー ド 白黒 モー ド 
ビッ ト カラ ー 指 定 機能 指定 
OFF 未 使用 ノー マル ノー マル 
8 O_N 未 使用 シー クレ ッ ト シー クレ ッ ト 
OFF 未 使用 ノー マル ノー マル 
0 O _N 未 使用 プリ ンク プリ ンク 
OFF 未 使用 ノー マル ノー マル 
を 0 N 未 使用 リバ ーー ス リバ パース 
OFF 機能 指定 
3 
O _N カラ ー 指 定 
OFF キャ ラク タ ノー マル ノー マル 
6 0 _N グラ フィ ッ ク オー バー・ ラ イン | オー バー・ ラ イン 
OFF B 信 号 OFF ノー マル ノー マル 
8 0 _N B 信 号 ON アン ダー・ ラ イン | アン ダー・ ラ イン 
8 OFF R 信 号 OFF 未 使用 未 使用 
O _N R 信 号 ON 未 使用 未 使用 
が OFF G 信 号 OFF 未 使用 キャ ラク タ 
O _N G 信 号 ON 未 使 用 グラ フィ ッ ク 
RGB 信号 じ カ ラー 変換 表 
信 | 時 青 赤 紫 緑 水 黄 日 
号 | ブラ ッ ク | ブル ー | レッ ド | マゼンダ | グリ ー ン | シア ン | イエ ロー | ホワ イト 
GTIOEEFE|OFEFEIOFEF|OFEE|IO NIO NIO _ NIO N 
RIOEEFE|OFEFIO NIO NIOFF|OEFEF|O NHIO N 
BIOFFIO NIOFF|IO NIOFF|0 NloFFlo N 
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0BD2H カー ソル 表示 の 停止 





アド レス 





機能 








レジ スタ 








呈 の 
場合 





解 説 
示し ませ ん . 


0BD2H 
カー ソル 表示 の 停止 
AF 一 一 一 一 日 し 


CRT ス クリ ー ン 上 の 現 カ ー ソ ル 位 置 に 表示 する べき カー ソル を 表 
た だ し , イン タブ リタ 等 か ら カ ー ソ ル 表 示 ル ー チ ン が 実行 され た 


CR コントローラ (PD3 3 0 1) の イニ シア ライ ズ が 行わ れ た 場合 


等 は , カー ソル 表示 が 再開 され ます . 


サン プル 





C100 
C102 
C104 


DB09 
CB47 
CA665C 


C107 
C10A 
C10D 
C110 


2140C1 
CD37C1 
CDE20B 
CD28C1 


C113 
C115 
C117 


DB09 
CB47 
CA665C 


C11A 
C11D 
C120 
C123 


2150C1 
CD37C1 
CDD20B 
CD28C1 


C126 18D8 


C128 
C12A 
C12C 06FF 
C12E 10FE 
C130 0D 
C131 20F9 
C133 3D 
C134 20F4 
C136 C9 ヶ 


3E0F 
OEFF 
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ーーー cursor on and of 千 ーー 


ORG 0C100H 
LOOP: IN A,(09H) 
BIiT 0,A 
JP  Z,S5C66H 


jump to system monitor i 和 † stop key 


LD HL,MSGON 
CALL DSPMSG 
CALL 0BE2H 
CALL MAIT 


3 中 1 PD 1 ay こり 8OF 


IN AaA,(09H) 
BIT 0,A 
JP Z,5C66H 


Jump to sy=tem monitor i 千 gtop key 


LD 

CALL 
CALL 
CALL 


HL , MSGOFF 

DSPMSG 

0BD2H H 
MAIT 


not disp]ay curaor 


JR LOOP 


い ョ 1 上 5ubroutine 


destroy= : regis も ter af。b,c 


UAIT: LD 
MAIT1: LD 
MAIT2: LD 
MAIT3: 


A,0FH 
C,OFFH 
B,OFFH 
DJNZ MAIT3 
DEC C 

JR NZ,UAIT2 
DEC A 

JR NZ ,MAIT1 
RET 


disp1ay me ら 5age SuDCOu モ ine 


destroys= : register a ヵ 〒。h,1 


C137 
C138 
C139 
C13A 
C13D 
C13E 


C140 
C144 
C148 
C14C 
C150 
C154 
C158 
C15C 
C160 


C161 


7E 

AZ 

C8 
CDS5702 
23 
18F7 


0D0A6375 
72736F72 
206F6E20 
21212000 
0D0A6375 
72736F72 
206F6666 
20212120 
00 


\6C100 


cursor on !! 


cursor off ! 


cursor on !! 


cuCsor off ! 


cursor on !! 


cursor of 


cursor on !! 


cursor off ! 


cursor on !! 


curBor of 


cursor off ! 


cursor on !! 


cursor of 千 


cursor on !! 


cursor off ! 


cursor on !! 


cursor off ! 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
cursor on !! 
1 
1 
1 
1 
1 
1 
1 
1 


cursor on !! 


3 


DSPMSGiLD A。(HL) 
AND A 
RET Z 
CALL 0257H 
INC HL 
JR DSPMSG 


me 紀 89 ど ご 8PeG8a 


MSGON: DEFB 0DH,0AH, "cursor on !! 40 


MSGOFF :DEFB 0DH,0AH, "cursor off !! 20 


END 
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0 BE2H カー ソル 表示 の 開始 





アド レス | DBE2H 
機 能 | カー ソル 表示 の 開始 
レジ スタ | AFーーーーHL 











解 " 説 | CRT ス クリ ー ン 上 の , カー ソル 位置 に 表示 する べき カー ソル を 表示 
し ます . 

通常 , BAS 1IC 等 に よっ て 業務 用 の プロ グラ ム 中 で キー ボー ド か ら の デー タ 
入力 を 行う 場合 に は , 見 掛け 上 の 同時 処理 を 実現 する た め お よ び エ ラー 処理 の 
完璧 を 期す る た め に , 普通 の 入力 命令 (INPUT 等 ) を 避け て INKEY$ 等 
を 使用 し ます が , INKEY$ の 実行 時 に は カー ソル が 消去 され て いま す . この 
よう な 場合 に カー ソル 表示 を 実現 する た め に も , この カー ソル 表示 ルー チン を 利 
用 する こと が で きま す . 


100 “ 

110 " input routine for business program 
120 “ 

130 DEFINT A-Z 

140 DEF USR=&HBE2 

150 BYTES=30 


160 

170 " main routine 
180 “ 

190 PRINT 


200 PRINT "input ? 『 5 

210 GOSUB 270 

220 IF RESULT$=*'end" OR RESULT*=*END' THEN END 
230 PRINT 

240 PRINT "print : "jjRESULT$ 

250 GOTO 170 


270 " input string subroutine 


220 COLUMN=0 
300 RESULT$*=** 
310 PRINT STRING*(BYTES,"" ) :STRING* ま (BYTES , CHR$(&H1D) ) 


330 " main loop of input a character 


350 DUMMY=USR(DUMMY ) 
360 IN$=INKEY$* 
370 1IF IN$*=** THEN 330 


320 IN=ASC( IN$) 

400 IF IN= &H8 THEN GOSUB 510:GOTO 330 
410 IF IN=&H7ZF THEN GOSUB 510:GOTO 330 
420 IF IN= &HD THEN RETURN 

430 IF IN<&H20 THEN 330 
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450 
460 
470 
480 


420 GOTO 330 


500 
510 
520 
530 
540 
550 
560 
570 


Fun 


1npu キ 
Prin セ も 


1input 
Pr in も 


1nPu 
PFin セ も 


1inpu キ 
Prin セ も 


1npu モ 
Prin も 


1npu も 
prin セ も 


inpu も 
Ok 


IF COLUMN=BYTES THEN 330 
COLUMN=COLUMN+ 1 
RESULT ま =RESULT ま +IN$ ま 
PRINT IN$ ぉ 


^ back-spacing Subroutine 


IF COLUMN=0 THEN RETURN 
COLUMN=COLUMN-1 

RESULT$=LEF T$(RESULT$,COLUNMN ) 
PRINT CHR$(&H1D)j』" "iCHR$(&H1D) 


RETURN 


? This 
: This 


? This 
: This 


? My dog is in the box・ 


ュ s 
1 ら 
1g 
1= 


: My dog is in the box・ 


? This 
This 


? This 
This 


? My cat is in the box・ 


1g 
1 ョ 
1g 
is 


: My cat is in the box。 
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0BF3H CMT か ら の 入力 イニ シア ライ ズ 





アド レス | 0BF3H 


機 能 | CMT か ら の 入力 イニ シア ライ ズ 
レジ スタ | AFーーーーーー 


























解説 





PD8251C (USART) を CMT の 入力 用 に イニ シア ライ 

ズ 後 , 内 蔵 モ ー タ ・ リ レー を “ON” に し て キャ リア を 検出 すれ ば も どり ます . 
STOP キ ー の 押下 で , “Tape read ERROR エラ ー を 発生 し ます . 

また , F1B6H 番 地 へ の フッ ク が 用 意 さ れ て いま す . 


0C2EH CMT イ ンタ フェ ー ス の クロ ー ズ 





アド レス | 0C2EH 


機 能 ]| CMT イ ンタ フェ ー ス の クロ ー ズ 
レジ スタ | AFーーーーー 一 











解説 











時 間 待 ち 後 , ん PD 8 2 5 1 C(USART=Universal Synchronous 
Asynchronous Resiver Transmitter) を クロ ー ズ し 


, 内 蔵 リ レー を "OFF" に 
し て も どり ます . 


0C46 日 CMT へ の 出力 イニ シア ライ ズ 





アド レス | 0C46H 


機能 | CMT へ の 出 カ イニ シア ライ ズ 
レジ スタ | AFーーーーー 一 





























解説 








PD8251C (USART) を CMT の 出力 用 に イニ シア ライ 
ズ 後 , 内 蔵 リ レー の “ON” を 実行 し , 時 間 待 ち を 行っ て も どり ます . 
また , F 1 B 6 HH 番地 へ の フッ ク が 用 意 さ れ て いま す . 
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0C88H CMT か ら の 1 バイ ト 入 力 





アド レス | 0C88H 
機 能 | CMT か ら の 1 バイ ト 入 力 
レジ スタ | AFーーーーーー 























解説 | CMT イ ンタ フェ ー ス か ら 1 バイ ト の デー タ を 入力 し , アキ ュ ム レ 
ー タ に 格納 し て も どり ます が , “Tape read ERROR エ ラー の 発生 また は STO 
P キー の 押下 で イン タプ ブリ タ の 制御 下 に 入り ます . 

また , F1A4H 番 地 へ の フッ ク が 用 意 さ れ て いま す . 








0CB3H アス タリ スク の フラ ッ シ ン グ 


アド レス | 0CB3H 
機 能 | アス タリ スク の フラ ッ シ ン グ 


SS 


レジ スタ | AF 一 ーーーーー 











解 説 | テキ スト ・ ス クリ ー ン 上 の 定位 置 に アス タリ スク “ 水 " が 表示 され 
て いる 場合 に は それ を 消去 し , そう で な い 場 合 に は 表示 し て も どり ます . 

イン タプ リタ で は , BAS IC の プロ グラ ム が ロー ド 中 で ある こと を 通知 する 
た め に , アス タリ スク を フラ ッ シ ン グ さ せ て し ます ., 


0CDAH CMT へ の 1 バイ ト 出 力 





アド レス | 0CDAH 
機能 | CMT へ の 1 バイ ト 出 力 
レジ スタ | AFーーーーー 一 


























解説 





CMT イ ンタ フェ ー ス へ , アキ ュ ム レー タ に 格納 され た デー タ 1 バ 
イト を 出力 し て も どり ます が , “Tape read ERROR" エ ラー の 発生 また は STO 
P キー の 押下 で イン タプ リタ の 制御 下 に 入り ます . 

また , F 2 0 DH 番 地 へ の フッ ク が 用 意 さ れ て いま す . 
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0CF1H STOP キ ー・ チ ェ ッ ク 


機 





アド レス 


能 


レジ スタ 





解説 


0CF1H 
STOP キ ー・ チ ェ ッ ク 


STOP (CTRL+C) キー 


, ESC キ ー 共 に 押下 され て いな け 


れ ば ゼロ ・ フ ラグ (Z) を 1 に セッ ト し て , STOP キ ー が 押下 され て いれ ば キ 
ャ リ ・ フ ラグ (CY) を 1 に セ モット し て も どり ます . 


C100 
C103 
C106 


C109 
C10C 
C10E 


C110 
C113 
C116 
C119 


C11B 
C11E 
C121 


C124 
C126 
C128 
C12A 
C12B 
C12D 


C12E 
C12F 
C130 
C131 
C134 
C135 


C137 
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2137C1 
CD2EC1 
CD24C1 


CDF10C 
28F 2 
380B 


2154C1 
CD2EC1 
CD750F 
18E5 


216CC1 
CD2EC1 
C3665C 


OEFF 
06FF 
10FE 
0D 
20F9 
C9 


7E 

A7 

C8 
CD5702 
23 
18F ァ 7 


ーーー- check stop key and esc k 


ORG 0C100H 


START: LD HL,MESAGE 
CALL DSPMSG 
CALL MAIT 


CALL OCF1H H 
JR Z,START H 
JR C,STOP H 


ESCAPE:LD HL,MSGESC 
CALL DSPMSG 
CALL OF75H 
JR START 


STOP: LD。 HL,MSGSTP 
CALL DSPMSG 
JP 5C66H 日 


い a1 七 ョ ubroutine 


destroy5 : reoister b,c 


H 
MAIT: LD C,OFFH 
MAIT1: LD B,OFFH 
MAIT2: DJNZ MAIT2 
DEC C 
JR NZ,MAIT1 
RET 


display message Subroutine 


1nPu= 


: top address of 
destroy8 : 


egister af 


ロー ーー ーー < 


SPMSG:LD Az(HL ) 
AND A 
RET Z 
CALL 0257H 5 
INC HL 
JR DSPMSG 


H 
? meG ラ SS89G 8a じ Ga 


By ニー ニ 


※check stop key and esc key 
not break and not escape 
ye= break and not escape 
not break and yes escaPe 


Jump to =y5stem mon1For 


message in reogister hl 
1 
PD 


display a character 


0D0A7075 MESAGE DEFB 0DH,0AH, "push stop key or esc key !",0 


C13B 73682073 

C13F 746F7020 

C143 6B657920 

C147 6F722065 

C14B 7363206B 

C14F 65792021 

C153 00 

C154 20206573 MSGESC:DEFB " esc key uas pushed !!7。0 
C158 63206B65 

C15C 79207761 

C160 73207075 

C164 73686564 

C168 20212100 

C16C 20207374 MSGSTP:DEFB " stop key uas pushed !!"。0 
C170 6F70206B 

C174 6579207?7 

C178 61732070 

C17C 75736865 

C180 64202121 

C184 00 


C185 END 


\GC100 


push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
push stop key or esc key 
※ 


esc key uas pushed !! 男 


esc key uas pushed !! 還 


esc key uas pushed !! 国 


esc key uas pushed !! 較 
=top key uas pushed !! 


0D14H ,z:PD82.5 1 と C ン フト ウェ ア ・ リ セッ ト 





アド レス | 0D14H 
機能 | PD8251C ソ フト ウェ ア ・ リ セッ ト 
レジ スタ | Aーーーーーーー 




















解 説 | ZPD8251C(USART=Universal Synchronous 
Asynchronous Resiver Transmitter) に リセ ッ ト ・ コ マン ド を 送出 し て , 以後 モ 
ー ド 設定 を 受け 付け る 状 遂 に し ます . 

具体 的 に は ,z PD82 51C が リセ ッ ト 直 後 で ある 場合 を 考 庶 し て , 1 度 グ ダミ 
ー の デー タ を 出力 し た 後 。, 実際 の リセ ッ ト ・ コ マン ド を 送出 し て いま す . す な わ 
ち , 出力 ポー ト 2 1 H 番 地 に 0EH お よび 4 0 H を 連続 し て 出力 し ます . 


サン プル 








ーーー reBse 寺 the uSar モ 上 ーー 一 


ORG 0C100H 
C100 213EC1 START: LD HL ,PROMPT 
C103 CD35C1 CALL DSPMSG 
C106 CD7S50F CALL OF75H j input a character from keyboard 
C109 CDS702 CALL 0257H j echo-back the character 
C10C FE03 CP 03H 
C10E 281C JR Z,NORSET 
C110 FEG6E CP ^n" 
C112 2818 JR  Z,NORSET 
C114 FEAE CP *N* 
C116 2814 JR Z,NORSET 
C118 FE79 cP 
C11A 2804 JR Z,RESET 
C11C FE59 CP デ 
C11E 20E0 JR _ NZ,START 
C120 CD1400D RESET: CALL 0D14H :jXreset uPD8251C the USART 
C123 21COC1 LD HL , YES 
C126 CD35C1 CALL DSPMSG 
C129 C3665C JP SC66H 
C12C 21C9C1 NORSET:LD HL,NOT 
C12F CD35C1 CALL DSPMSG 
C132 C3665C JP 5C66H 


disp] ay mes ら Sage SubCoutine 


1nPu て 5 : top address of message in register hl 
destroys : register a ぅ 季 。h,1 


ロー ーー 


C135 7E ISPMSG:LD A,(HL) 
C136 AZ AND A 
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C137 
C138 
C13B 
C13C 


C13E 
C142 
C146 
C14A 
C14E 
C152 
C156 
C15A 
C1S5E 
C162 
C166 
C16A 
C16E 
C170 
C174 
C178 
C17C 
C180 
C184 
C188 
C18B 
C18F 
C193 
C197 
C19B 
C19F 
C1A1 
C1A5 
C1A9 
C1AD 
C1B1 
C1B5 
C1B9 
C1BD 
C1BF 


C1C0 
C1C4 
C1C8 
C1C9 
C1CD 
C1D1 
C1DS 


C1D8 


C8 
CDS5702 


18F ァ 7 


0D0A7265 
73657420 
っ 5534 152 
54202855 
6E697665 
7273616C 
0D0A2020 
20202020 
20202020 
20202053 
796E6368 
726F6E6F 
7573 
000A2020 
20202020 
20202020 
20202041 
73796E63 
68726F6E 
6F7573 
0D0A2020 
20202020 
20202020 
20202052 
65736976 
6572 
0D0A2020 
20202020 
20202020 
20202054 
72616E73 
6D697474 
65722920 
3F20 

00 


000A7965 
73202121 
00 
0D0A6E6F 
74207265 
736S7420 
212100 


\GC100 


RET Z 
CALL 0257H 
INC HL 
JR DSPINSG 


me らら 5Sa9G arGa 


で < 


DEFB 0DH,0AH,“ 


DEFB8 0DH,0AH, “ 


DEFB 0DH,0AH, “ 


0DH, 0AH,“ 


DEFB 0 


YES: DEFB 


NOT: DEFB 


END 


reset USART (Universa1l 


Synchronous 
Asynchronou5s 
Resiver 
Transmi モ ter) ? a 


reset USART (Universa1 


not rese セ モ !! 


\6C100 


Synchronous 
Asynchronous 
Resiver 
Transmitter) ? n 


reset USART (Universa 1 


アメ eS 


Synchronous 
AgynchConous 
Resiver 
Tranami モ モ eF) ? ッ 


00H,0AH, "yes 


0DH, 0AH, “not rese モ 


) display a character 


ROMPT:DEFB 0DH,0AH, “reset USART (Universa1" 


Synchrorious 


Asynchronous 


Resiver“ 


Transmitter) ? 
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ES 


0D43H 一 定時 間 の 内 蔵 プ ザー 鳴動 





アド レス 
機能 
レジ スタ 




















解説 











0D43H 
一 定時 間 の 内 蔵 プ ザー 鳴動 


BASIC の BEEP と 同様 に 一 定時 間 ( 約 0.5 秒 問 ) 内 蔵 プ ザ 


ー を 鳴動 きせ て も どり ます . すでに 内 蔵 プ ザー が 鳴動 中 で あっ た 場合 に は , 一 定 


時 間 ( 約 0. 


90 


5 秒間 ) 内 蔵 プ ザー の 鳴動 を 止め て も どり ます . 








サン プル 








ーーー 上 es= モ program o 和 T beep ーー 一 


ORG 0C100H 
C100 0e96 LD B,150 
C102 DB09 LOOP: IN AA,(09H) 
C104 CB47 BIT 0,A j jump to system monitor if stop key 
C106 CA665C JP Z,5C66H 
C109 2120C1 LD HL,MESAGE 
C10C CD17C1 CALL DSPMSG 
C10F CD430D 5 CALL 0D43H j※Cing the be1l1 for appointed time 
C112 10EE " DJNZ LOOP 
C114 C3665C " JP 5C66H j jump to system monitor i 千 和 fini5h 


display message SubCoutine 


1npu て = : top address of message in register hl 
destCoys : regiSter af げ ,h, 1 


ロー ーー ーー・ < 


C117 7E SPMSG:LD 。A,(HL) 
C118 A7 AND A 
C119 C8 RET Z 
C11A CD5702 CALL 0257H j display a character 
C11D 23 INC HL 
C11E 18F7 JR DSPMSG 
H meG 紀 S896 8 ビ じ @8a 
C120 62656570 MESAGE:DEFB "beep *,0 
C124 2000 
C126 END 
xGC100 


beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 
beep beep beep beep beep beep beep beep 


beep beep beep beep beep beep 
※ 
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0D4BH 内 蔵 プ ザー の コン トロ ー ル 





アド レス 0D4BH 
機 能 | 内 蔵 プ ザー の コン トロ ー ル 
レジ スタ | AF 一 一 ーー 


























解説 | アデ キュ ムレ ー タ に 格納 され た デー タ が 0 0H の 場合 に は , 内 蔵 プ ザー 

を OFF (BEEP 0) の 状態 に . アキ ュ ム レー タ に 格納 され た デー タ が 0 0 
H 以 外 の 場合 に は 内 蔵 プ ザー を ON (BEEP 1) の 状態 に 設定 し て も どり ま 
す . 

PC-800 1mkTII で は , 出力 ポ ボート 4 0 HH 番地 の 第 5 ビッ ト を 直接 に 制御 
する こと で 内 蔵 プ ザー を コン トロ ー ル する こと が 可能 で す が , この 出力 ポー ト に 
は , プ ザー の 他 に も いく つか の 周辺 機器 が 接続 され て いま す . し た が っ て , この 出 
カポ ボート へ の 出力 を 実行 する 場合 に は , 第 5 ビッ ト 以 外 の ビッ ト が 変化 し な いよ 
うに ,EA6 7 有 H 番 地 に 格納 され た 値 (以前 4 0 H 番 地 に 出力 し な デー タ ) と の 間 
で , 論理 和 (0R) を 求め る な どの 注意 が 必要 で す . 
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サン 


プル 








C100 


C102 
C104 
C106 


C109 


C10B 
C10C 
C10F 


C111 
C112 
C115 


C117 
C118 


C11A 
C11B 


C11D 


C120 
C121 
C124 


C125 
C127 
C12A 


C12B 


160A 


DB09 
CB47 
CA665C 


0E01 


41 
CD25C1 
10FE 


41 
CD20C1 
10FE 


0C 
20F1 


15 
20E5 


C3665C 


AF 
CD4BO0D 
C9 


3E01 
CD4B0D 
C9 


\5C100 


3 


LOOP1: 
H 


LO0P2: 
THIS1: 


THIS2: 


日 


EEP1: 


ORG 
LD 
IN 
BIT 
JP 
LD 


LD 


CALL 
DJNZ 


LD 


CALL 
DJNZ 


INC 
JR 


DEC 
JR 


JP 


0C100H 
D,10 
A,(09H) 
0,A 
Z,5C66H 
C,1 
BC 
BEEP1 
THIS1 
B,C 
BEEP0 
THIS2 


C 
NZ ,LOOP2 


D 
NZ ,LOOP1 


SC66H 


buzzer off subroutine 


EEP0: XOR A 


CALL 0D4BH 


RET 


LD 


buzzer on Subroutine 


仙 1 


CALL 0D4BH 


RET 
END 


ーーー 8meriCan Pa モ Col =1Cen 一 一 一 


jump to system monitor- iT stop key 


destroys : register af,e 


3※ContCo]1 buzzer 


destroy= : reoi5ter afT,。e 


3※COn モ CO] buZZer 
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0D60H プリ ンタ へ の 1 バイ ト 出 力 





アド レス 





機 





レジ スタ 


解説 
ます . 


能 





0D60H 
プリ ンタ へ の 1 バイ ト 出 力 


アキ ュ ム レー タ に 格納 され た 1 バイ ト の デー タ を プリ ンタ へ 出力 し 


た だ し , 常に STOP キ ー・ チ ェ ッ ク の シス テム ・ サ プ ブルー チン を 呼び 出し て 
お り , STOP キ ー の 押下 が 認め られ た 場合 に は , プ リン タ へ の 出力 を 止め て も ど 
り ま す . 

まだ 。 レジ 
意 さ れ て いま す . 





C100 
C103 
C104 
C105 


C108 


サン プル 


210EC1 
7E 
AZ 
CA665C 


CD600D 


C10B 23 


C10C 


C10E 
C112 
C116 
C11A 
C11E 
C122 
C126 
C12A 


C12C 


18F5 


2D2D2054 
68697320 
69732074 
6865206D 
65737361 
67652021 
21202D2D 
0D00 


\GC100 
ーー This is the message !! 一 


甘 
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スタ AF の 値 を スタ ッ ク に 退避 後 ,F 1 BCH 番 地 へ の フッ ク が 用 


H 

1 oo 〇 い モ pu ロモ me ラ =88a9@ to Printer Dow 
上 ORG 0C100H 

H 


LD HL,MESAGE 


H 
LOOP: LD A。(HL) ?) ge a charac て er 
AND A : check end mark or not end mark 
H 


JP Z,5C66H ) ytem moni モ or i 千 end mark 
CALL 0D60H 3?※Ou モ pu a character to printer 
INC HL ) 1incremen 七 Pointer 
JR LOOP 

H 

) mes=age area 

H 

MESAGE :DEFB “-- This is the message !! --",ODH,0 


END 


0DA3H 内 蔵 リ レー の 反転 





アド レス | 0DA3H 
機 能 | 内 蔵 リ レー の 反転 


レジ スタ 








|[ 解 説 | BAS IC の MOTOR と 同様 に 内 蔵 リ レー の 状態 を 反転 し ます . 
すなわち , リレー が OFF の 状態 で あれ ば ON (MOTOR 1) の 状態 に 。 リ 
レー が ON の 状態 で あれ ば OFF (MOTOR 0) の 状態 に . それ ぞ れ 設定 し 
て も どり ます . 
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サン プル 











C100 


C102 
C104 
C106 


C109 
C10C 


C10F 
C112 
C114 


C117 
C118 
C119 
C11A 
C11D 
C11E 


C120 
C124 
C128 


C129 


0664 
DB09 
CB47 
CA665C 


2120C1 
CD17C1 


CDA30D 
10EE 
C3665C 


YE 
AZ 
C8 
CDS5702 


18F?7 


6D6F746F 
72202020 
00 


%GC100 

motor motor 
mo て or mo セ tor 
moOtor motor 
motor motor 
mo キ toF motoF 
mo セ tor mo て tor 
mot モ or mo モ or 
motor motor 


mo セ tor mo モ も or 
motor motor 
mo モ Oor mo セキ OF 
moO モ or mo も or 


motor motor 
motor mo モ or 
mo モ or mo キ toF 
motor motor 
motor mo モ or 
mot モ or motor 
mo モ or mo モ or 
motor mo モ tor 


3 
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ーーー 上 eS program Of motor ーー 一 


ORG 0C100H 
LD B,100 


LOOP: IN  A,〈09h) 
BIT 0,A 


Jump to system monitor if stop key 
JP  Z,5C66H 


LD HL,MESAGE 
CALL DSPMSG 


CALL 0DA3H j※reverse て he motor relay 
日 
DJNZ LOOP 
JP 5C66H j』 jump to system monitor i 人 千 finish 


display mesaage SubCoutine 


ロー 


1nput= : top address of message in register hl 
destroys : register a, 千 ,h,1 
SPMSGiLD A,(HL ) 
AND A 
RET Z 
CALL 0257H j display a character 
INC HL 
JR DSPMSG 


me888geG area 


ネー … < 


ESAGE :DEFB "motor 0 


END 


motor mo も or motor 
motor motor mo モ tor 
mo モ Or motor mo モ Or 
mo モ OC mo も or mo 革 Or 
mo も Or mo モ or mo モ tor 
mo キ or motor mo モ or 
motor motor motor 
mo も Or ヒ mo も or mo も Or 
mo モ o レ mo モ or mo モ o レ 
mo も or motor motor 


moO キ OF mo も OF mo も OF 
mo モ Or mo も or mo キモ or 
mo も Or mo も tor mo モ tor 
motor moO モ Or moO モ or 
mot キ or mo も or mo セ tor 
mo キレ moO モ OF mo モ or ロ 
mo モ or mo キモ OF mo も モ or 
mo て or mo モ tor mot モ or 
mo キ Or mo キ to mo も or 


mo モモ OF mo モ oF motor 


0DAEH 内 蔵 リ レー の コン トロ ー ル 





アド レス 0DAEH 
機 能 | 内 蔵 リ レー の コン トロ ー ル 
レジ スタ | AFーーーーー 一 


























解説 | アキ ュ ム レー タ に 格納 され た デー タ が 0 0 H の 場合 に は 内 蔵 リ レー 
を OFF (MOTOR 0 ) の 状態 に . アキ ュ ム レー タ に 格納 され た デー タ が 0 
0 H 以 外 の 場合 に は 内 蔵 リ レー を ON (MOTOR 1) の 状態 に 設定 し て も ど 
り ま す . 
PC-ー8001mkTII で は , 出力 ポー ト 3 0 H 番 地 の 第 3 ビッ ト を 直接 に 制御 
する こと で 内 蔵 リ レー を コン トロ ー ル する こと が 可能 で す が , この 出力 ポー ト に 
は リレー の 他 に も いく つか の 周辺 機器 が 接続 きれ て いま す . し た が っ て , この 出 
カポ ー ト へ の 出力 を 実行 する 場合 に は , 第 3 ビッ ト 以 外 の ビッ ト が 変化 し な いよ 
うに EA6 6H 番 地 に 格納 され た 値 (以前 3 0 H 番 地 に 出力 し た デー タ ) と の 間 
で , 論理 和 (0R) を 求め る な どの 配 虐 が 必要 で す . 














サン プル 
: ーーー contro] motor relay ーー 一 
上 ORG 0C100H 
C100 2140C1 START: LD HL,PROMPT 
C103 CD37C1 CALL DSPMSG 
C106 CD750F CALL OF75H ) input a character from keyboard 
C109 FE03 CP 03H j check stop key 
C10B CA665C JP Z,5C66H j jump to system monitor i 千 stop key 
C10E FE30 " cP 07 
C110 200B JR NZ , NOTOFF 
C112 2158C1 LD HL,MSGO 
C115 CD37C1 CALL DSPMSG j motor relay of 
C118 CD2CC1 CALL MOTORO 
C11B 18E3 - JR START 
C11D FE31 NOTOFF :CP 導 
C11F 20DF JR NZ , START 
Cc121 216FC1 LD HL,MSG61 ) 
C124 CD37C1 CALL DSPMSG j motor relay on 
C127 CD31C1 CALL. MOTOR1 H 
C12A 18D4 JR START 


motor relay off subroutine 


de ョ モ on ッ 5 ョ : reg1=ter a, 王 
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C12C 
C12D 
C130 


C131 
C133 
C136 


C137 
C138 
C139 
C13A 
C13D 
C13E 


C140 
C144 
C148 
C14C 
C150 
C154 
C158 
C15C 
C160 
C164 
C168 
C16C 
C16F 
C173 
C177 
C17B 
C17F 
C183 


C185 


\GC10 


mo て Or 
motor 
mo モ or 
motor 
mo て or 
moO モ or 
mo て or 
mo て or 
moO モ or 
moO モ or 
mo モ or 
mo モ tor 
moO セ or 
mo モ tor 
moO モ or 
mo て or 
mot モ or 
mo て tor 
mo も or 
motor 
mo セ tor 
mo て Or 
% 
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AF 
CDAE0D 
C9 


3E01 
CDAE0D 
C9 


7E 
AZ 
C8 
CDS5702 


18F?7 


0D0A6D6F 
746F7220 
30206F72 
206D6F74 
6FY22031 
203F 2000 
30203A20 
6D6F746F 
72207265 
6C617920 
6F666620 
212100 
31203A20 
6D6F746F 
72207265 
6C617920 
6F6E2021 
2100 


0 


Or motor 
Or moO モ Or 
Or moO モ OrC 
Or motor 
Or mo モ tor 
Or motoC 
Or mo モ tor 
Or moOt モ or 
Or moO モ Or 
Or mo モ or 
or mo モ or 
moO モ or 
Or moO モ or 
Or mo モ or 
Or mo も or 
Or mo モ or 
Or mo も or 
OF moO モ OrC 
Or mo モ tor 
Or moO セ or 
Or mo モ or 
Or mo も Oo ビ 


の の の の の の の の の どの の の の どの の の の の の の の の 
O 
3 


MOTOR0:XOR A 
CALL 0ODAEH 


イー 


MSG0: 


MSG1 : 


ロビ ロビ ロロ ロビ ロビ は は は は は は は は は ロロ は ロロ ロロ 
ざ つ や や つや つつ つつ ざ ざ ざ 


RET 


destroy8 ョ * 


IDTORT:iLD 


全 1 


register a。 


CALL 0ODAEH 


RET 


1npu セ = 5 
destroy8 : 


me ほら 89@G 8P@8 


DEFB “0 : 


DEFB 


END 


ご ーー コー ミー ヨー ニ ミ ネー ミニ ミー ョ ニニ ミー ョ ミニ ミ ー】 


1 5 


mo モ or 
mo モ oF 
mot モ or 
mo モ tor 
mo も or 
mo キモ or 
moO セ or 
mo モ or 
motor 
mo も or 
moO モ OF 
mo キモ Oo ヒ 


top address of message 


motor relay on subroutine 


display message Subroutine 


register h,1 


SPMSGiLD  A,(HL) 
AND A 
RET Z 
CALL 0257H 
INC HL 
JR DSPMSG 


motor relay 


motor relay 


relay 
relay 
relay 
relay 
relay 
relay 
relay 
relay 
relay 
relay 
relay 
Fe] ay 


off 
off 


on ! 
off 
on ! 
off 


off 
on ! 
off 
on ! 


ROMPT:DEFB 0DH,0AH, “motor 0 


3※con モ ro1 


3※cContro1 


mo も tor relay 


motor relay 


in register hl 


j display a character 


or motor 1 ? “0 


off 


On 


11740 


0 


0F75H キー ボー ド か ら の 1 バイト 入力 待ち 





アド レス | 0F75H 
機 能 | キー ボー ド か ら の 1 バイ ト 入 力 待ち 
2 スタ AF デー ゴー デー 























[解説 | キーボード か ら の 入力 が 認め られ る まで 待ち , 入力 が あっ た 場合 に 
は , 入力 され た コー ド を アキ ュ ム レー タ に 格納 し て も どり ます . た だ し , CRT 
スク リー ン へ の エコ ー・ バ ッ ク は 行い ませ ん . 

キー ボード か ら の 入力 が な けれ ば 入力 が ある まで 待ち 続け ます . 


サン プル 





ーーー 1nPu セ a character and disp] ay code ーー 一 


ORG 0C100H 
C100 CD7S0F LOOP: CALL OF75H j※inpu モ character from keyboard 
C103 F5 PUSH AF 
C104 CD18C1 CALL DSPACC j display character code 
C107 3E20 LD Aa 
C109 CDS702 CALL 0257H j display tuo spaces 
C10C CD5702 CALL 0257H H 
C10F F1 POP AF 
C110 FE03 CP 03H ) check break code 
C112 CA665C JP Z,S5C66H j jump to system monitor if† stop key 
C115 Cs00C1 JP LooP 


display accumulator hexa decimal subroutine 


1npu= : binary code in accumul ator 
destroy= : register a, 千 5 

C118 4?Z SPACC:LD B,A 

C119 OF RRCA 

C11A OF RRCA 

C11B OF RRCA 

C11C OF RRCA 

C11D CD21C1 CALL HALF 

C120 78 LD A,B 

C121 E60F HALF: AND OFH 

C123 FE0OA CP 10 

C125 3802 JR C,NUMBER 

C127 C607 ADD Aa,7 

C129 C630 NUMBER :ADD A,30H 

C12B CD5702 CALL 0257H ji display a character 

C12E C9 RET 

C12F 1 END 

6C100 

4F 50 5S1 52 53 54 55 56 57 58 

59 SA 03 


3 
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0F7BH キー ボー ド か ら の 1 バイト 入 力 





デア ドレ ス | 0F7BH 
機能 | キー ボー ド か ら の 1 バイ ト 入 力 
レジ スタ | AFーーーーー 一 
































解説 | キー ボー ド か ら の 入力 を 調べ , キー 入力 が 認め られ な い 場 合 に は , 
キャ リ ・ フ ラグ (CY) を 1 に セッ ト し て も どり ます . キー 入力 が 認め られ た 
場合 に は キャ リ ・ フ ラグ (CY) を 0 に リセ ッ ト し , 入力 し た コー ド を アキ ュ 
ムレ ー タ に 格納 し て も どり ます . 

0F75H 番 地 の シ ステ ム ・ サ ブル ー チ ン で は キー 入力 が 認め られ る まで 待ち 
続け ます が , この シス テム ・ サ ブ プルー チン で は キー 入力 の 有無 に か か わら ず も ど 
っ て くる た め , 見 掛け 上 の 同時 処理 を 行う こと が で きま す . 

馬 E 特殊 キー (CTRL キ ー, SHIFT キ ー, カナ キー, GRPH キ ー 

) の 入力 が ある 場合 に は , 処理 速度 が 著しく 低下 し ます . リア ル タ イ ム な 処理 中 
SN る 場合 に は 十分 に 御 注意 下さ い . 

















サン プル 
: ーーー key scanning ぃ ith display Cursor ーー 
ORG 0C100H 
H 

C100 2138C1 LOOPL: LD HL ,MESAGE 
C103 CD2FC1 CALL DSPMSG 
C106 0614 LD B,20 j Set loop counter 
C108 CD7BOF LOOPS: CALL OF7BH j Xkey scanning ぃ ith display CuFSoF 
C10B 300C JR _ NC,YESIN 
C10D CD26C1 CALL MAIT ) uai モ a momen モ 
C110 3E3E " LD Aa 
C112 CD5702 CALL 0257H j display a character 
C115 10F1 DJNZ LOOPS 
C117 18E7 JR LOOPL 
C119 F5S YESIN: PUSH AF 
C11A 3E20 LD AA 
C11C CD5702 CALL 0257H 
C11F F1 POP AF 
C120 CD5702 CALL 0257H ) echo-back a input character 
C123 C3665C JP SC66H j jump も o system moni モ or 


いり a1 七 ubCOu モ ine 


destroys : register a ヵ 季 。h,1 


ーー 


C126 21FFOF AIT: LD HL,0FFFH 
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C129 
C12A 
C12B 
C12C 
C12E 


C12F 
C130 
C131 
C132 
C135 
C136 


C138 
C13C 
C140 
C144 
C148 
C14C 


C14E 


2B 
7C 


20FB 
C9 


4 コ 

AZ 

C8 
CDS702 
23 
18F? 


0D0A70 
656173 
20686 ヶ 
20616E 
206B65 
2000 


\GC100 


please hi も 
please hi 
please hit 
please hi も 
please hi 
please hit 
please hi 
please hi 
please hi 
please hi も 
please hit 
please hi 
please hi 
please hit 
please hi セ も 
please hi 
please hi 
please hi も 
please hi 
please hi 


先 


6C 
65 
74 
79 
79 


8 ロ アメ 
ny 
an ツ 
8 ロア 
8 ロメ 
8 ロメ 
an ツ 
8 ロン 
8 ロア 
8 ロメ 
8 ロア 
an ロメ 
8n ア 
8n ロ アメ 
an ツ 
an ツメ 
8n ツ 
8ny 
an 
8n ツ 


MAIT1: DEC HL 


エー 


key 
key 
key 
key 
key 
key 
key 
key 
key 
key 
key 
key 
key 
key 
key 
key 
key 
key 
key 
key 


ISPMSG:LD 


LD AH 

OR L 

JR NZ ,MAIT1 
RET 


display mesSage SubFCoutine 


1nput ぉ * 
destCoy8 : 
(HL) 
AND A 
RET Z 
CALL 0257H 
INC HL 
JR DSPMSG 


me ら 8889@G 8r@a 


END 


>>>222> う > うう >> う うう ラフ > 
>>>>>>>>> う うう > うう > うう > うう 
22222222222 う > うう >> ウ > 
シク ククル ルル ルナ クル みみ ルルル ルル ルル ル 2 
>>>22>>>> う うう > うう >>>> > 
>>>22>>>>> う > うう うう > うう > 
>>>2>2>> う うう >> う > うう >> う > 
>>>2222 う 2 うう > うう > フ > うう 
と ククル ルナ ルル クル ナル ナル ルナ ナル ルル 】 
>>>22>>>> う うう うう >>>> う > 
>>>2>2>> う うう > うう うう > 
>>22222 う うう > > うう > うう > うう > 
>>222>>> 2 うう うう うう > うう 
>>>>22>>>>> う > うう >>>> > 
>>22>22 ウ 2 うう うう うう > 
>>>>2>2>2 う うう > うう > > 
>2>22>22 う 2 うう 2 うう > うう >> う > 
>>2222>>>>2 う > 2 うう > > > 
>>>>2>>>> う うう > うう > フフ > 
>>>>2>>>> う うう >>> xx 


top address of message in register hl 
register af げ ,h,1 


j display a character 


ESAGE :DEFB 0DH,0AH, “please hit any key 「,0 
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0FACH リア ル タ イ ム ・ キ ー ボ ー ド ・ ス キャ ニン グ 


アド レス 0FACH 
機 能 | リア ル タ イ ム ・ キ ー ボ ー ド ・ ス キャ ニン グ 
レジ スタ | AFーーーーー 一 




















解 " 説 | カー ソル を 表示 せ ず に キー ボー ド か ら の 入力 を 調べ , キー 入力 が 認 
め ら れ な い 場 合 に キャ リ ・ フ ラグ (CY) を 1 に セ モット し て も どり ます . キー 
入力 が 認め られ た 場合 に は キャ リ ・ フ ラグ (CY) を 0 に リセ ッ ト し , 入力 し た 
コー ド を アキ ュ ム レー タ に 格納 し て も どり ます . 

基本 的 に は ,. BASIC の INKEY$ と 同様 の 使い 方 を 実施 する た め の , サ 
プ ブルー チン で す . 





サン プル 


ーー- key scanning ゅ 1i モ hout disp1]ay と urSoOr ーー 一 


ORG 0C100H 
C100 2138C1 LOOPL: LD HL,MESAGE 
C103 CD2FC1 CALL DSPMSG 
C106 0614 6 LD B,20 ) Be ]oop counter 
C108 CDACOF LOOPS: CALL OFACH j※key =canning ぃ 1 モ thou モ cursor 
C10B 300C JR _ NC,YESIN H 
C10D CD26C1 CALL MAIT 3 ぃ ゅ ai モ a momen モ 
C110 3E3E 6 LD AA > 
C112 CD5702 CALL 0257H j display a character 
C115 10F1 1 DJNZ LOOPS 
C117 18E7 1 JR LOOPL 
C119 F5 YESIN: PUSH AF 
C11A 3E20 LD 。 A。 
C11C CD5702 CALL 0257H 
C11F F1 POP AF 
C120 CD5702 CALL 0257H j echo-back a input character 
C123 C3665C JP 5C66H 3j JumPp 上 Oo =y ョ モ tem moni モ Oo 


いり 8a1 モ Subrou セ ine 


destroys : register ah,1 


C126 21FFOF UAIT: LD HL ,0FFFH 


C129 2B MAIT1: DEC HL 

C12A 7C LD  A,H 
C12B BS OR L 

C12C 20FB JR NZ,MAIT1 
C12E C9 RET 


display message SubrCou モ ine 


inputs : て top address of message in register hl 
destroys : register a。 和 fh,1 
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C12F 7E DSPMSG:LD A,(HL) 


C130 AZ AND Aa 

C131 C8 RET Z 

C132 CD5702 CALL 0257H j display a character 
C135 23 INC HL 

C136 18F ァ 7 JR DSPMSG 


me らら 389G 8a ビ Ga 


1 
C138 0D0A706C MESAGE:DEFB 0DH,0AH, “please hit any key “,0 
C13C 65617365 
C140 20686974 
C144 20616E79 
C148 206B6579 ヶ 
C14C 2000 


C14E END 


\GC100 


please hi any key >>>>>>>>>>>>>>>>>>>> 
please hi any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>>>>>>>>>>>>>>>>> 
please hi any key >>>>>>>>>>>>>>>>>>> ッ > 
please hi any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>>>>>>>>>>>>> う >>>> 
please hit any key >>>>>>>>>>>>>>>> う >>>> 
please hit any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>>>>>>>>>>>>> う >>> 
please hi any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>>>>>>>>>>> う >> う >>> 
please hit any key >>>>>>>>>>>>>>>>>>>> 
please hit any key >>>>> + 

3 
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| 用 生 A 月 デキ ス ド ・ ス クリ ー ン ・ コ ヒー 


アド レス | 124AH 
機 能 | テキ スト ・ ス クリ ー ン ・ コ ピー 
レジ スタ | AFBCDEHL 


























解説 | CRT の テキ スト 画面 に 表示 され て いる キャ ラク タ の イメ ー ジ ( テ 
キス ト 画 面 の 最上 自 か ら ス クロ ー ル 範囲 の 下端 まで ) を その まま プリ ンタ に 出力 
し ます . 

た だ し , ヌル ・ キ ャ ラク タ ・ コ ー ド は 2 0 H で ある 必要 が あり , アト リ ビ ュ ー 
ト 指定 は 無視 され る た め , モミ ・ グ ラフ ィ ッ ク に よる 描画 画面 は 正常 に コピ ー で 
きま せん . 

また , EA58H 番 地 の 最 下位 ビッ ト (LSB) を セッ ト し て お き , IF・9| キ 
ー を 押下 し た 場合 に も , 同様 に テキスト ・ ス クリ ー ン の コピ ビー を 行う こと が で き 
ます . 





7 














H 
】 ーーー PPin セ ou y bar graph ーー 
H 


ORG 0C100H 
C100 CD5A04 BARGRP :CALL 045AH j clear text screen al1 
C103 0E24 1 LD C,36 
C105 2601 LD  H,1 
C107 0610 5 LD B,16 
C109 2E13 LD  L,19 
C10B 3E21 LD AI 
C10D CDS0C1 LOOP: CALL MOVDSP 
C110 20 DEC L 
C111 10FA DJNZ LOOP 
C113 24 5 INC H j 1ncremen モ poSi セ ion x 
C114 0D DEC C 
C115 CD88C1 LOOPX: CALL RND 
C118 2E13 LD L,19 
C11A 3E2D " LD Ar ー7 
C11C CDS0C1 CALL MOVDSP : move cursor and display character 
C11F 2D DEC L j decremen モ position 
C120 04 ・ INC B 
C121 05 LOOPY: DEC _B 
C122 2808 JR Z,EXITY 
C124 3E2A LD Are 
C126 CD50C1 CALL MOVDSP ) move cursor and display character 
C129 2D DEC L j decrement posi モ ion y 
C12A 18FS JR LOOPY 
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C12C 
C12D 
C12E 


C130 
C133 


C136 
C139 
C13C 


C13E 
C140 
C143 
C145 
C14?7 
C149 


C14B 
C14E 


C150 
C151 
C152 
C153 
C156 
C15 ァ 7 
C158 
C159 


C15A 
C15B 
C15C 
C15D 
C160 
C161 


C163 
C164 
C168 
C16C 
C170 
C172 
C176 
C17A 
C17B 
C17F 
C183 
C187 


C188 
C18B 
C18D 


24 
0D 
20ES5 


2163C1 
CDSAC1 


CD750F 
CDS702 
CBEF 


FE65 
CA665C 
FE6E 
28B9 
FE?70 
20ES 


CD4A12 
18E0 


) 
C5 
ES 
CDD702 
E1 
C1 
F1 
C9 


7E 
AZ 
C8 
CD5702 


18F7 


0B 
6E657874 
20877261 
7068286E 
2920 
7072696E 
74287029 
20 
6F722065 
6E642865 
29203F 20 
00 


CD8FC1 
E60F 
4? 


EXITY: INC H 
DEC C 
JR NZ,LOOPX 


LOPIN:LD HL,MESAGE 
CALL DSPMSG 


CALL OF75H 
CALL 0257H 
SET 5,A 
H 

CP ^e" 

JP Z,5C66H 
CP ^n“ 

JR Z,BARGRP 
CP  p" 


JR NZ,LOOPIN 


CALL 124AH 
JR LOOPIN 


incremen モ position x 


inpu a character from keyboard 
echo-back a character 
conver モ in セ to small letter 


Print out y bar graph section 


}j※pPP1in 七 ou tex 七 screen image 


}j moOve CuFSor and display a character Subroutine 


1nPut ら : position x in register h 
poSition y in register 1 
character code in accumul a モ or 


H 
H 
H 
H 
H 
H destroys : register d,e 
H 
NM 


IDVDSP :PUSH AF 
PUSH BC 
PUSH HL 
CALL 02D7H 
POP HL 
POP BC 
POP AF 
RET 


j display mesSage ら ロ DCOutine 


1npu= 


top address o 和 † message in register hl 


H 
H 

日 

H H 

H destroys : register a, 下 h。1 
H 

D 


SPMSG:LD  A,(HL) 
AND A 
RET Z 
CALL 0257H 
INC HL 
JR DSPMSG 


me ら 896G 8P じ Ga 


MESAGE :DEFB 11 


3) display a character 


DEFB "next graph(n) ^ 


DEFB “print(p) 


DEFB “or end(e) ? 


s0 


generate a random number from 0 to 15 subroutine 


H 

H 

H 

1 H 

け destroys : register a, 下 ,b 
H 

R 


〇 ロモ pu ロモ generated number in register b 
ND: CALL RSUB 
AND OFH 
LD B,A 


105 


C18E C9 
C18F 
C1920 
C191 
C193 
C195 
C196 
C199 
C19A 
C19D 
C19E 
C1A0 
C1A2 


DS 
ES 
EDSF 
1600 
SF 
2AA9 
19 
22A9 
7D 
CBOF 
CBOF 
CBOF 
C1A4 CBOF 
C1A6 E1 
C1A7 D1 
C1A8 C9 


C1A9 


\GC100 


C1 
C1 


RNDM: 


RET 

PUSH DE 

PUSH HL 

LD AR 

LD  D,0 

LD  E,A 

LD HL,(RNDM ) 
ADD HL,DE 

LD (RNDM) ,HL 
LD AL 

RRC A 

RRC A 

RRC A 

RRC A 

POP HL 

POP DE 

RET 

END 


next graph(n ) print(p) or 


1 

1 

! 3 
! 3 
! ※ 
1 3 
1 半 ※ 
1 ※ ※ 
1※※ 3 
1 ※ 
1%※ ※※ 
1%X は 3 
1%※ ※※ 
1※※% 3 
1 ※※※% 
! 

next graPp| 
! 3 
1 3 
! ※ 
! ※ 
! ※ 
! 3 ※ 
1 ※ 
1 甘 類 
1 ※ 。 ※※ 
| 
1 %※ 。 ※ 
1 ※※※ 
1 


3 甘 

3 に 3 

甘 類 甘 

美 類 甘 

甘 区 甘 天 区 

甘 光 甘 3 

甘 燃 革 3 

し 3 3 美 区 

半 甘 洋 甘 洋 区 

区 33 

半 光 ※※※※ 炎 ※ 革 

革 活 基 区 区 し すす 3 

まま 3 美 甘 光 

革 革 ※※ 区 区 区 区 ※※ 
h(n ) 

し 3 

3 甘 

3 甘 甘 甘 

革 革 。 半 甘 

3 ※※ 。 ※ 区 

甘 し 3 美 

美 ※ 甘 類 基 。 茨 区 

革 類 美 洋 洋 基 光 

類 類 基 革 ※※ 基 区 

炎 類 甘 洋 潤 基 区 区 区 

甘 基 区 基 区 区 区区 

甘 革 潤 区 区 区区 ※※ 区 

甘 類 基 基 基 区 区区 


米 炒 米 


甘 
※※ 
甘 甘 
し 3 

甘 基 
区 
※※※ 
革 区 
甘 基 類 
革 基 区 


3 
に 3 
美 洋 
美 半 
美 
3 
美 甘 
美 ※ 
甘 基 


1 炎 ※※※※※ 炎 区区 区 区 区 区 区 区 
1 ※※※※※ 革 XX※※ メ 区 
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end(e) ? p 


3 
3 
3 
3 
3 
甘 区 
3 


3 
甘 
し 3 
は 3 
3 
甘 類 
は 3 
甘 基 
美 区 


米 玉 


甘 

甘 基 
甘 類 甘 
革 
美 洋 基 革 基 区 
類 洋 光 区 ※※ 
甘 洋 区区 区 区 区 
革 ※ 基 ※※※ 区 区 
美 粒 区 区 区 区 区 
美 類 半 区区 区 区 
甘 類 基 区 区 区 区 区区 


print(p) or end(e) ? p 


3 

3 革 

甘 甘 甘 

甘 甘 半 

甘 

革 基 区 

美 洋美 区 甘 
美 洋洋 半 基 甘 
美 洋 洋 革 甘 区 甘 
革 類 区 3 
甘 基 光 基 基 区 
美 基 区区 ※ 区 区 区 
美 洋 沈 区 区区 
甘 基 区 区 区区 
甘 光 区 区 


1602H タイ マ か ら の デー タ 読 出し 





アド レス | 1602H 








機 能 | タイ マ か ら の デー タ 読 出し 








レジ スタ | AFBCDEHL 








解 説 | メ PD1990C (シリ アル I/ プ 0 カレ ンダ 時 計 ) か ら の 情報 を 読 














出し , ワー ク ・ エ リア (EA76H-EA7 BH 番 地 ) に 格納 し て も どり ます . 
それ ぞ れ の デー タ は BCD (Binary Coded Decimal) コー ド と し て ワー ク ・ エ 
リア に 格納 され ます が , MONTH (EA7 AH 番地 ) の み は 例外 で , 通常 の バ 
イナ リ 形 式 (0 1H-0CH) で 格納 され ます . 
以下 に , タイ マ 制 御用 の 情報 読出 し バッ ファ を 示し ます . 
EA7 6H 番 地 …… SECOND (BCD コ ー ド に よる 秒 ) 
EA7 7 日 番地 …… MINUTE (BCD コ ー ド に よる 分 ) 
EA78H 番 地 …… HOUR (BCD コ ー ド に よる 時 ) 
EA7 9H 番 地 …… DAY (BCD コ ー ド に よる 日 ) 
EA7 AH 番地 …… MONTH (バイ ナリ ・ コ ー ド に よる 月 ) 
EA7BH 番 地 …… YEAR (BCD コ ー ド に よる 年 ) 
た だ し , デー タ そ れ ぞ れ の 有効 範 胃 は つぎ の と お り で す . 
SECOND…… 0 一 59 


HOUR CCPCCCPEYPD 0 一 2 3 
DAY OOCCCCCLLEEYYD 1 一 3 1 
MONTH PCPCCCLCD 1 一 1 2 
YEAR CPPPPCCCLLD 0 一 9 9 


YEAR (年 ) の 値 は . タイ マ か ら の 読出 し を 行っ て いま せん . し た が っ て , 
イン タプ リタ は , YEAR (年 ) の 値 を 参照 する 必要 が で きた 場合 に は タイ マ か 
ら の デー タ 読 出し を 行わ ず , EA 7 BH 番 地 の 内 容 を 参照 し て いま す . 














サン プル 
) ーーー read from 上 1mer ーー 
ORG 0C100H 
) read 和 from 上 imer sec ュ on 
ct00 CDO216 CALL 1602H iread rom mer 
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C103 
C106 


C109 


C10C 
C10E 
C10F 


C110 
C111 
C112 
C113 


C115 
C118 


C11A 
C11D 
C120 


C122 
C125 


C128 


C12B 
C12D 
C12E 


C12F 
C132 
C135 
C136 


C138 


C13B 
C13C 
C13E 
C140 
C142 
C144 
C146 


C147 
C148 
C14A 
C14C 
C14D 


C14E 
C150 
C152 
C154 
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2175C1 
CD6CC1 


217BEA 


0603 
7E 
2B 


48 
0D 
0D 
2805 


CD3BC1 
1803 


CD4EC1 
CDSEC1 
10EC 


218CC1 
CD6CC1 


2178EA 


0603 
7E 
2B 


CD3BC1 
CDSEC1 
1B 
10F5 


C3665C 


SF 

CB3F 
CB3F 
CB3F 
CB3F 
C630 
57 


7B 
E60F 
C630 
5F 
C9 


1630 
FE0A 
3004 
C630 


display date 


LD HL 
CALL DS 
LD HL 
LD B 
LDATE: LD Aa 
DEC HL 
" LD C, 
DEC C 
DEC C 
JR 2, 
" CALL BC 
JR  SK 


MONTH: CALL CM 
SKIP: CALL DS 
DJNZ LD 


display time 


LD HL 
CALL DS 


LD HL 


LD  B, 
LTIME: LD  A, 
DEC HL 


CALL BC 
CALL DS 
DEC DE 
DJNZ LT 


JP 5C 
convert bcd 
1nput= 


〇 上 ロモ 
de モ Coy8 


CDー・ー・ー・ ーー・ ーー 


CDCHR :LD E 
SRL A 
SRL  A 
SRL A 
SRL A 
ADD A 
LD D 

に 1 
0 
A 
E 


LD 
AND 
ADD 
LD 
RET 


conV ソ er mon モ 
1nPpu モ ら 


〇 u モ ロ ロモ 
de ら 上 Oo ツラ 


ーー 


MONTH:LD D, 
CP 0A 
JR NC 
ADD A。 


ection 


ぅ ADATE 
PMSG 


ぅ DEA7BH 


3 
(HL ) 


B 


MONTH 


DCHR 
IP 


COn ソ @ ビ 七 


IDNTH COnVer モ 


PDE display 


ATE 
Section 


ぅ ATIME 
PMSG 


> 0EA7BH-3 


3 
(HL ) 


DCHR 
PDE 


COn ソ @P モ 
display 


IME 
66H 』 jump to 


code into character code 


bcd code in accumul a モ or 


end address of date buffer 


check minute or other 


bcd code into 2 characters 


month into 2 characters 


tuo characters in reg-de 


end address of time buffer 


bcd into 2 characters 
tuo characters in reg-de 


yt 上 em moni モ or 


Subroutine 


: tuo characters in register de 


register a。 和 Td,e 


h into character code =ubCou モ ine 


mon モ h in accumula モ or 


register af,d,e 


>0* 
H 
。CMONT1 
20・ 


tuo characters in register de 


C156 SF LD  E,A 


C157 C9 ヶ RET 
C158 1631 CMONT1:LD  D,17 
C15A C626 ADD  A,“0"-0AH 
C15C 5F LD E,A 
C15D C9 RET 
) display two characters and a space 
: des モ CoyS : accumulator only 
H 
C15E 7A DSPDE: LD AD 
C15F CDS702 CALL 0257H j display a character 
C162 7B LD AE 
C163 CD5702 CALL 0257H j display a charecter 
C166 3E20 LD AA 
C168 CD5702 CALL 0257H j display a space code 
C16B C9 RET 
) display message Subroutine 
) destroys  : register a げ ,h,1 
C16C 7E DSPMSG:LD Aa,HL) 
C16D A ァ 7 AND A 
C16E C8 RET Z 
C16F CD5702 CALL 0257H j display a character 
C172 23 INC HL 
C173 18F ァ 7 JR DSPMSG 


mG ら =896G 8 ビ @8 


セー < 


C175 0D0A6461 
C179 7465202D 
C17D 20797920 
C181 6D6D2064 
C185 64202D2D 
C189 3E2000 
C18C 0D0A7469 ATIME: DEFB 0DH,0AH, “time - hh mm ss --> "』0 
C1920 6D65202D 

C124 20686820 

C198 6D6D2073 

C19C 7?3202D2D 

C1A0 3E2000 


DATE: DEFB 0DH,0AH, “date - yy mm dd --> “,0 


C1A3 END 


Print date 中 上 1me$ 
79/01/01 00:00:S56 
0k 

mon 


\GC100 


date - yy mm dd --> 79 01 01 
time - hh mm ss --> 00 01 00 

※ 

0k 

date ま ="01/01/01" : モ ime ま ="01:01:01" 
0k 

mon 

*GC100 


date - yy mm dd --> 01 01 01 


time - hh mm ss --> 01 01 11 


Ok 

Print dae 中 , モ me 
01/01/01 01:01:23 
Ok 
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1663H タイ マ へ の デー タ 書 込み 





アド レス | 1663H 
機 能 | タイ マ へ の デー タ 書 込み 
レジ スタ | AFBCDEHL 























解 説 | ワー ク ・ エ リア (EA76H-EA7 BH 番 地 ) の 情報 を , PD 
1990C (シリ アル I プ 0 カレ ンダ 時 計 ) に 設定 し て も どり ます . 
それ ぞ れ の デー タ は , BCD (Binary Coded Decimal) コー ド と し て ワー ク ・ 
エリ ア に 与え る 必要 が あり ます が , MONTH (EA7 AH 番地 ) の み は 例 外 で , 
通常 の バイ ナリ 形式 (0 1H-ー0 CH) で 与え ます . 
以下 に , タイ マ 制 御用 の 情報 書込み バッ ファ を 示し ます . 
EA7 6H 番 地 …… SECOND (BCD コ ー ド に よる 秒 ) 
EA7 7 有 HH 番地 …… MINUTE (BCD コ ー ド に よる 分 ) 
EA78H 番 地 …… HOUR (BCD コ ー ド に よる 時 ) 
EA79H 番 地 …… DAY (BCD コ ー ド に よる 日 ) 
EA7 AH 番地 …… MONTH (バイ ナリ ・ コ ー ド に よる 月 ) 
EA7BH 番 地 …… YEAR (BCD コ ー ド に よる 年 ) 
た だ し , デー タ そ れ ぞ れ の 有効 範 田 は つぎ の と お り で す . 
SECOND…… 0-59 


HOUR………… 0 一 2 3 
DAY CCCCCCCCEYYYYES 1 一 3 1 
MONTH……… 1 一 1 2 
YEAR RODCCCKSSYY 0 一 99 


YEAR (年 ) の 値 は 。 タイ マ へ の 書込み を 行っ て いま せん . し た が っ て , イ 
ンタ プリ タ は , YEAR (年 ) の 値 を 参照 する 必要 が で きた 場合 に は タイ マ か ら 
の デー タ 読 出し を 行わ ず , EA7BH 番 地 の 内 容 を 参照 し て いま す . 














サン プル 
3 ーーー ぃ ゅ ビ 1 革 上 O 七 imer 一 一 一 
ORG 0C100H 
j inpu date section 
C100 2175C1 LD HL ,PDATE 
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C103 
C106 
C109 


C10C 


C10F 
C111 


C112 
C113 
C114 
C115 


C116 
C117 
C118 
C119 
C11A 


C11C 
C11F 


C121 


C124 
C125 


C126 
C127 


C129 
C12C 
C12F 
C132 


C135 


C138 
C13A 


C13B 
C13C 
C13D 
C13E 


C13F 


C142 
C143 


C144 
C145 


C147 
C14A 


C14D 
C14E 
C150 
C151 
C153 
C155 


CD6CC1 
CD7E1B 
DA665C 


117BEA 


0603 
CS 


23 
46 
23 
4E 


F1 
FS 
3D 
3D 
2805 


CD4DC1 
1803 


CDSEC1 


12 
1B 


C1 
10E8 


2186C1 
CD6CC1 
CD7E1B 
DA665C 


1178EA 


0603 
CS 


23 
46 
23 
4E 


CD4DC1 


12 
1B 


C1 
10F3 


CD6316 
C3665C 


78 
D630 
4? 
CB20 
CB20 
CB20 


CALL 
CALL 
JP 
LD 


LD 


LDATE: PUSH 


INC 
LD 
INC 
LD 


POP 
PUSH 
DEC 
DEC 
JR 


CALL 
JR 


MONTH: CALL 


SKIP: LD 


DEC 


PoP 
DJNZ 


1nput time 


LD 
CALL 
CALL 
JP 


LTIME: PUSH 


〇 ーー・ ーー 


CALL 


LD 
DEC 


POP 
DJNZ 


いじ 1 上 上 の 〇 七 imer gecion 


CALL 
JP 


DSPMSG 
1B7EH 
C,S5C66H 


DE ,0EA7BH 


B,3 
BC 


HL 
B,(HL ) 
HL 
C,(HL ) 


AF 

AF 

1 

A 
Z,MONTH 


CHRBCD 
SKIP 


CHRBIN 


(DE ) ,A 
DE 


BC 
LDATE 


ec せ ion 

HL ,PTIME 
DSPMSG 
1B7EH 
C,S5C66H 

DE , 0EA7BH-3 


B,3 
BC 


HL 
B,(HL ) 
HL 
C,(HL ) 
CHRBCD 


(DE ) ,A 
DE 


BC 
LTIME 


1663H 
SC66H 


Screen @di モ or 
Jump to system monitor if stop key 


end address of date buffer 


check minute or other 


conver セ into bcd code i 千 not month 


conver セ モ into binary code i 千 month 


screen edi モ or 
jump to system monitor if stop key 


end address of date buFffer 


convert into bcd code 


3?※ い ビュ モ e 七 の 七 ュ imer 


Jump to sy5tem moni モ or 


convert character code into bcd code subroutine 


1npus 
〇 u セ u 
de 上 Coy 


HRBCD:LD 


SUB 
LD 

SLA 
SLA 
SLA 


に 】 


0 


の の の の 
ア 


て uo characters in regi=ter bc 
bcd code in accumul a モ or 
register a。 下 も 
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C157 
C159 
C15A 
C15C 
C15D 


C1SE 
C1SF 


C161 
C162 
C163 
C164 
C165 


C166 
C167 
C168 
C16A 
C16B 


C16C 
C16D 
C16E 
C16F 
C172 
C173 


C175 
C179 
C17D 
C181 
C185 
C186 
C18A 
C18E 
C192 
C196 


C197 


CB20 
79 
D630 
80 
C9 


7E 
AZ 
C8 
CD5702 


18F7 


64617465 
202D2079 
796D6D64 
64203F20 
00 

74696D65 
202D2068 
686D6D73 
73203F 20 
00 


SLA_B 
LD A。C 
SUB 0" 
ADD Aa,B 
RET 
: conver 革 character code into binary code subroutine 
H 
H 1nPu も = : tuo characters in register bc 
H outputs 。 : binary code in accumul ator 
H destroys : register a。 生 5 
H 
CHRBIN:LD AB 
SUB “0" 
H 
LD  B,A 日 
ADD  A,A H 
ADD A,A j multiply accumulator by ten 
ADD A,B H 
ADD  A,A H 
5 LD B,A 
LD  aA,C 
SUB “0" 
ADD A,B 
RET 
) display message SubCoutine 
) des モ oy ツラ : register a,〒,h,1 
DSPMSG:iLD 。A,〈HL) 
AND A 
RET Z 
CALL 0257H j display a character 
INC HL 
JR DSPMSG 


me らら 889@ 8 ビ ど 8 


で ーー 


DATE: DEFB “date - yymmdd ? “,0 


PTIME: DEFB “time - hhmmss ? “,0 


END 


Prin モ da セ e 生 。 モ 1me 計 
79/01/01 


0k 
mon 


\GC100 
date - yymmdd ? 011223 
time - hhmmss ? 122334 


※ 
Ok 


00:00:06 


Print date ま 。 モ ime 計 
01/12/23 


Ok 


mon 


XGC100 
date - yymmdd ? 831001 
time - hhmmss ? 000000 


甘 
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12:23:42 


17E9H BASIC の プロ グラ ム 格 納 ア ドレ ス 設 定 





アド レス | 17E9H 








機 能 | BASI1C の プロ グラ ム 格 納 ア ドレ ス 設 定 














レジ スタ | AFBCDEHL 











解説 | レジ スタ HL に よっ て 指定 する アド レス を , BAS IC の プロ グラ 
ム を 格納 する 先頭 アド レス (RAM の 下限 ) と し て 設定 し . BAS 1IC の タイ ト 
ル ・ メ ッ セ ー ジ を 表示 し て コー ルド ・ ス ター ト を 行い ます . 

た だ し , レジ スタ HL に 与え る アド レス は , ZZ 8 0 の イン タラ プ ト ・ ベ クタ ・ 
テー ブル が 置け る アド レス (2 5 6 の 倍数 ) の 必要 が あり ます . 

設定 以後 , イン タプ リタ の スク リー ン ・ エ ディ タ に よっ て 入力 され る , N 一 B 





ヨル ブー ェ 


ASIC お よび N80 一 BAS IC の プロ グラ ム は , 設定 を 行っ た アド レス 以降 
に 格納 され て 行き ます . 
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C100 
C103 
C106 
C109 


C10C 
C10F 


C112 
C115 
C118 
C11B 


C11E 
C121 
C124 


C127 


C12A 
C12D 


C130 
C132 


C133 
C135 


C136 
C138 
C139 
C13B 
C13D 
C13F 
C141 
C143 


C144 
C146 
C148 
C14A 
C14C 
C14D 
C14E 
C14F 
C150 
C151 


C152 


C154 
C155 


C156 
C157 
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サン プル 


1187C1 
CD7EC1 
11A4C1 
CD7EC1 


CD2AC1 
DA665C 


1187C1 
CD7EC1 
11A7C1 
CD7EC1 


CD56C1 
11AAC1 
CD7EC1 


C3E917 


210000 
CD7S5C1 


FE04 
D8 


FEOD 
C8 


FE30 
D8 

FE47 
3017 
FE3A 
3803 
FE41 
D8 


FE3A 
3802 
C609 
E60F 
29 
29 
29 
29 
85 
6F 


18D9 


37 
C9 


7C 
CDSBC1 


ーーー aPPoin 


ORG 


LD 
CALL 
LD 
CALL 


CALL 
JP 


LD 
CALL 
LD 
CALL 


CALL 
LD 
CALL 


JP 
input addr 


〇 Output て 


destCoy 


INADDR iLD 

INADD1 iCALL 

い CP 
RET 


CP 
RET 


CHKHEX:CP 
RET 
CP 
JR 
CP 
JR 
CP 
RET 


H 

YESHEX :CP 
JR 
ADD 

INADD2 : AND 
ADD 
ADD 
ADD 
ADD 
ADD 
LD 


JR 


の 


ETCY: SCF 
RET 


1nput ら = 


ロー ーー・ ーー・ < 


SPADR :LD 
CALL 


de= モ oy メラ 


上 top address of basic tex モ ーー 一 


0C100H 


DE , MESAGE 
DSPMSG 
DE , QUESTI 
DSPMSG 


INADDR ?) inpu top address of basic tex モ 
C,5C66H j do nothing if break or error 


DE , MESAGE 
DSPMSG 
DE , ANSMER 
DSPMSG 


DSPADR 
DE ,CRLF 
DSPMSG 


display address and cr1lf code 


17E9H j※appoin 七 top address of basic tex セ も 


e88 Subroutine 
: inpu モ address in register hl 
et carry if exi モ ぃ ith error or stop key 
rese 七 carry 1 exi モ ぃ i モ th return key 

= : register a, げ ,h,1 


HL,0 


MONIN inpu モ a character 


04H 
C 


check stop key or not 
Set carry iT exi モ ぃ uith stop key 


0DH j check return key or no も 
Z j) rese モ carry iT exi 七 ぃ ith return ke 


207 
C 

7F"+1 
NC,SETCY 
9 の"+1 

C, YESHEX 
2 ルン 

9 


Se carry and re モ urn 
if input not hexa code 


9 の"+1 

C, INADD2 
A,9 

OFH 
HL,HL 
HL,HL 
HL,HL 

HL ,HL 
AL 

LA 


conver モ in セ to binary code 
and store in register hl 


INADD1 nex モ d ュ gi モ も 


display addresS SubCou モ ine 


: address in register hl 
: register a 生 

AH 

ACCHEX 


C15A 7D LD 上 


C15B F5 ACCHEX:PUSH AF 
C15C OF RRCA 
C15D OF RRCA 
C15E OF RRCA 
C15F OF RRCA 
C160 CD68C1 CALL HALF 
C163 F1 POP AF 
C164 CDe68C1 CALL HALF 
C167 C9 RET 
Ct68 E6OF HALFi AND OFH 
C16A FEOA CP 10 
C16C 3802 JR  C,NUMBER 
C16E C607 ADD  A,Z 
C170 Ce30 NUMBERiADD A,^07 
C172 C35702 JP 0257H 
: inpu モ a capita] character subroutine 
: outputa  : character code in accumu]l ator 
日 destroy5 : register a 
C175 CD750F MONIN: CALL OF75H }j input a character from keyboard 
C178 CDCC4C CALL 4CCCH j』 COnver モ in モ o capita] ]e 上 て er 
C17B C35702 JP 0257H j echo-back a character and return 
) display message ubCoutine 
日 
1 destroys : register a,fT,d,e 
C17E 1A DSPMSG:LD A,(DE ) 
C17F AZ AND A 
C180 C8 RET Z 
C181 CD5702 CALL 0257H ) display a character 
C184 13 INC DE 
C185 18F ァ 7 JR DSPMSG 


me ら =8ageG 8aFPGa 


H 
5 
C187 0DOA746F MESAGE:DEFB 0DH,0AH, “top address of basic text ",0 
C18B 70206164 
C18F 64726573 
C193 73206F66 
C197 20626173 
C19B 69632074 
C19F 65787420 
C1A3 00 
C1A4 3F2000 QUESTIiDEFB “? ^,0 
C1A7 3A2000 ANSMER:DEFB “: “,0 
C1AA 0DOA00 CRLF:i DEFB 0DH,0AH,0 


C1AD END 


\GC100 

top address of basic tex モ ? 9000 
top address of basic text : 9?000 
NEC PC-8001 BASIC Ver 1.3 
Copyright 1979 (C) by Microsoft 


0k 
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1875H “Disk BASIC Feature”" エラ ー 





アド レス 1875H 
機 能 | “Disk BASIC Feature" 
レジ スタ AFBCDEHL 





























解説 | 実行 の 準備 が な され て いな い 状 態 で Disk 一 BASIC 関 係 の 命令 を 実 
行 し た こと を 示す , “Disk BASIC Feature" エ ラー を 出力 し て イン タブ リタ の 制 
御 下 に 入り ます . 

具体 的 に は , エラ ー・ コ ー ド 2 6 を レジ スタ E に 格納 後 。 3 BF 9 H 番 地 に ジ 
ャ ンプ し て いま す . 

イン タフ リタ で は , Disk 一 BASIC が 起動 し て いな い 時 点 で Disk 一 BASIC 関 
係 の 命令 が 実行 きれ た 場合 に . ワー ク ・ エ リア 中 に 置か れ た ジャ ンプ ・ テ ー ブ ル 
を 介し て , この 18 7 5 H 番 地 に ジャ ンプ し て ,“Disk BASIC Feature" エ ラー 
を 出力 し ます . 








サン プル 











ーーー output "Disk BASIC Feature' error ーー 


ORG 0C100H 
C100 2116C1 LOOP』 LD HL,PROMPT 
C103 CDED52 CALL 52EDH j display the message 
C106 CD750F ・ CALL OF7S5H 3】 inpu a character from keyboard 
C109 CD5702 CALL 0257H j echo-back the character 
C10C CBEF " SET 5,A 3) conver モ into smal] ]etter 
C10E FE79 6 cp ツン! 
C110 C2665C JP NZ , 5C66H j jump to system monitor i 千 no ye ら 
C113 C37518 - JP 187SH 3Xoutput "Disk BASIC Feature' error 


H 
3} me ら =889@G 8CGa8 


H 
C116 0DOA6F75 PROMPT:DEFB 0DH,0AH, output error (yZn) ? /,0 
C11A 74707574 
C11E 20657272 
C122 6F722028 
C126 792F6E29 
C12A 203F2000 


C12E END 


*6C100 
output error (y/Zn) ? ッ 


Disk BASIC Feature 
0k 
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1B7EH スク リー ン ・ エ ディ タ 





アド レス 1B7EH 
機 能 | スク リー ン ・ エ ディ タ 
レジ スタ | AFBCDEHL 




















解 説 | キー ボー ド か ら , スク リー ン ・ エ ディ トト 方式 に よっ て 1 ライ ン の デ 
ー タ を 入力 し , BA SIC の イン プッ ト ・ バ ッ フ ァ (EC96H-ED95H 番 
地 ) に 格納 し て も どり ます . た だ し , 入力 デー タ は 2 5 4 バイ ト ま で が 有効 で , 
2 5 4 バイト を 超え て 入力 し た 場合 に は , 先頭 か ら の 2 5 4 バイ ト が 入力 デー タ 
と 見 な され ます . 

デー タ の 入力 は RETURN キ ネー (CTRL 二 M) まな は STOP キ ー (C 
TR 工 二 C) の 入力 に よっ て 終了 し ます が , 前 者 の 場合 に は キャ リ ・ フ ラグ (C 
Y) を 0 に リセ ッ ト し , 後者 の 入力 に よっ て スク リー ン ・ エ ディ ト を 中 断 し た 場 
合 に は ,。 キャ リ ・ フ ラグ (CY) を 1 に セッ ト し て も どり ます . 

この サブ ルー チン か ら の リタ ー ン 時 に は , レジ スタ HL に EC9 5H (イン プ 
ッ ト ・ バ ッ フ ァ の 開始 アド レス ー 1 ) が , アキ ュ ム レー タ に は 最後 に 入力 され た 
キャ ラク タ の キャ ラク タ ・ コ ー ド (0 3 H ま た は 0DH) が 与え られ ます . 


サン プル 














H 
j ーーー miCPO word proce==er ーー 一 
H 


ORG 0C100H 
C100 21C1C1 LD FL,TITLE 
C103 1806 JR DSPLAY 
H 
C105 3E0 ァ 7 ERROR: LD A,07H 
C107 DF RST 18H ) Outpu モ a character to each device 


C108 21D8C1 START0:LD HL , PRONPT 
C10B CDBAC1 DSPLAY:CALL DSPMSG 


C10E CD7ZE1B START: CALL 1B7EH )%※screen edi て or 

C111 38FB JR C,START ) screen _ edi again i 千 top key 
日 

C113 23 INC HL 

C114 7ZE LD A,(HL ) ) ge て the first data of edi モ 

C115 CBAF RES 5,A 3 conver モ into capital ]etter 

C117 FE41 CP ^A" 

C119 38EA JR  C,ERROR 

C11B FESB CP 7Z ォ 1 

C11D 30E6 JR _ NC,ERROR 

C11F 21E2C1 LD HL , TABLE j top address of command table 

C122 0604 LD B,4 j se モ number of command 

C124 1126EC START1:LD DE,OEC926H j inpu モ buffer of basic 

C127 1A START2:LD  A,(DE) 

C128 CBAF RES 5,A 3 COnVe ビ 七 in セ O Capi モ al ]e モ モ er 

C12A BE CP (HL ) 

C12B 2007 JR NZ,START3 
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C12D 
C12E 
C130 
C131 
C132 


C134 
C135 
C136 
C138 
C139 


C13B 
C13C 
C13D 
C13E 


C140 
C143 
C144 
C145 
C146 
C147 
C148 
C14A 
C14C 
C14D 
C150 
C151 
C154 
C156 


C158 
C159 
C15A 
C1SB 
C15C 
C15D 


C1S5E 
C161 
C162 
C164 
C165 
C166 
C168 


C16A 
C16C 


C16F 
C171 


C174 
C175 
C178 
C17A 


C17B 
C17C 
C17E 


C180 


C181 
C184 


C186 
C188 
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AZ 
2828 
23 
13 
18F3 


34 
35 
2803 


18F9 


23 
23 
23 
10E4 


1196EC 
1A 

13 

08 

1A 

13 
FE3A 
20B9 
08 
CDBOC1 


01FF00 
EDBO 
18B6 


23 
SE 
23 
56 
EB 
E9 


2100C2 
AF 
061A 
77 

24 
10FC 
189E 


3E01 
3249EB 


3E61 
CDA1C1 


47 

CDF 10C 
388E 
78 


3C 
FE7B 
20F1 


AF 
3249EB 
1882 


3E61 
CD2BC1 


AND 
JR 
INC 
INC 
JR 


H 

START3: INC 
DEC 
JR 
INC 
JR 


H 

START4: INC 
INC 
INC 
DJNZ 


H 

EDIT: LD 
LD 
INC 
EX 
LD 
INC 
CP 
JR 
EX 
CALL 
EX 
LD 
LDIR 
JR 


YESCOM: INC 
LD 
INC 
LD 
EX 
JP 


デーー … 


EM: LD 
XOR 
LD 
NEM1: LD 
INC 
DJNZ 
JR 


A 

Z, YESCON 
HL 

DE 
START2 


(HL ) 
(HL ) 
Z,START4 
HL 
START3 


HL 
HL 
HL 
START1 


DE,0EC96H 
A,(DE) 

DE 

AF,AF" 
A,(DE) 

り UE 


NZ , ERROR 
AF,AF" 
CALADR 
DE ,HL 
BC,OFFH 


START 


HL 
E,(HL ) 
HL 
D,(HL ) 
DE ,HL 
(HL ) 


neu command section 


HL,BUFFER 

に 1 
B。7z"ー"a"+1 
(HL ),A 

H 

NEM1 

STARTO 


j Prin も command section 


3 

) 

PRINT: LD 
LD 

" LD 

PRINT1:CALL 

" LD 
CALL 
JR 
LD 


INC 
CP 
JR 


XOR 

LD 

JR 
日 
LIST: LD 
LIST1: CALL 


A,1 
(0EB49H) ,A 


Aa 
PRNL IN 


B,A 

0CF 1H 
C,STARTO 
AB 


A 

^ テ "+1 

NZ ,PRINT1 
A 


(0EB49H) ,A 
STARTO 


1 st command section 


A, an" 
LSTLIN 


H 


found command 


input buFffer of basic 


calculate top address of buFffer 


get command addressa 
and jump to each command 


Se 1 ec 上 printer for の Ou モ pu も 
et first ]ine number in acc・ 


Prin モ 上 ou a line て oO Printer 


check stop key 


return to main routine if break 


increment line number in acc・ 
check ]1ine number end 


Be 1 ec cr 七 for 〇 u モ pu も 


se て 和 first line number 
display a line 


C18B 
C18C 
C18F 
C192 


C193 
C1924 
C196 
C1928 


C19B 
C19C 
C19D 
C19F 
C1A0 


C1A1 
C1A2 
C1A5 


C1A8 
C1AB 


C1AE 
C1AF 


C1B0 
C1B2 
C1B4 
C1B7 
C1B8 
C1B9 


C1BA 
C1BB 
C1BC 
C1BD 
C1BE 
C1BF 


C1C1 
C1CS5 
C1C9 
C1CD 
C1D1 
C1DS 
C1D8 
C1DC 
C1DF 


47 
CDF10C 
DA08C1 
78 


3C 
FE7B 
20F0 
C308C1 


DF 
FS 
3E3A 


F1 


FS 
CDBOC1 
CDBAC1 


21DFC1 
CDBAC1 


F1 
C9 


CBAF 
D641 
2100C2 
84 

67 

C9 


7E 
A7 
C8 
DF 
23 
18F9 


776F7264 
2070726F 
63657373 
696E6720 
73797374 
656D20 
68657265 
2E2EFC 
0D0A00 


LD 


JP 
LD 


INC A 


CP 

JR 

JP 
list one 1 


1nput ら = 


ーー ーー 


STLIN:RST 


destroy8 * 


B,A 

CALL 0OCF1H 日 
C,START0 
AB 


check stop key 
top key, eturn モ 上 Oo main Foutine 


incremen セ も line number in acc。 
check 1ine number end 


イラ ォ 1 H 


NZ,LIST1 
START0 


ine ぃ ith ]ine number subroutine 


1ine number from a to z in accumul a モ or 
register h,1 


18H j Output ]ine number 


PUSH AF 


LD 
RST 
POP 


1ist one 1 
1inputs 
RNLIN:PUSH 


CALL 
CALL 


LD 
CALL 


PoP 
RET 


calculate 


1nPut ら 
〇 utpu5 
destroy| 


ALADR :RES 
SUB 
LD 
ADD 
LD 
RET 


display me 


H 

H 

H 1nput= 

日 de て oy 

H 

DSPMSGiLD 
AND 
RET 
RST 
INC 
JR 


me ら = ラ 889@ 8 ビ 


日 
H 
TITLE: DEFB 


PROMPT:DEFB 
CRLF : 


DEFB 


dea モ oy8 


AA 
18H 
AF 


ine uithou モ 1ine number subroutine 


1ine number from a to z in accumul ator 
register h,1 


AF 
CALADR 
DSPMSG 


calculate top address o 和 buffer 


HL ,CRLF 
DSPMSG 


AF 


top address of buffer subroutine 


! 1ine number from a to z in accumul ator 
: top address of buFffer in register h1 
8 : register ah,1 

5 
^A 
HL , BUFFER 
A。H 
H,A 


Ba9@ ら り DCOu モ ine 


: top address of message in register h] 
= : register af,h,1 

A,(HL) 

A 

Z 

18H 3 
HL 

DSPMSG 


〇 upu モ a character 


で 8a 


"word processing ystem 


"here・・" ,0FCH 
00H, 0AH,0 
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3j command table 


C1E2 4C495354 TABLE: DEFB “LIST^,0 


C1E6 00 
C1E7 86C1 DEFM LIST 
C1E9 5052494E DEFB “PRINT”,0 
C1ED 5400 
C1EF 6AC1 DEFM PRINT 
C1F1 4E455700 DEFB “NEM",0 
C1FS SEC1 DEFM NEM 
C1F7 53595354 DEFB “SYSTEM" ,0 
C1FB 454D00 
C1FE 665C DEFU 5C66H 

j buffer for edi モ 
C200 BUFFER END 


く < く < MICRO UMORD PROCESSER SPECIFICATIONS >>> 


くく BASIC SPECIFICATIONS >> 


Program area 
data area * 


operation 
1ine number 5 


title message 
Promp モ 上 me=8age 
で COr me=a889@G 


くく COMMANDS >> 


1ist, or LIST 
print, or PRINT 
neu。 or NEM 
system, or SYSTEM 


くく ATTENTION >> 


this specificaion= printed 
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from c100h to c1ffh 
from c200h to dbffh 


Screen edi モ 
from a to z。 or from A to Z 


micro proceBssing =yStem here・・ 
here・・ 
ring the be]l1 


display all tex モ 

Outpu セ al 1 tex モ to printer 

clear al]l tex モ 

exi 七 from uord procesaing =yStem 


ぃ ui モ th this program・ 


1B8AH ライ ン ・ エ ディ タ 





アド レス | 1B8AH 








機 能 | ライ ン ・ エ ディ タ 








レジ スタ | AFBCDEHL 











解説 | キー ボー ド か ら , ライ ン ・ エ ディ ト 方 式 に よっ て 1 ライ ン の デー タ 
を 入力 し , BA S I C の イン プッ ト ・ バ ッ フ ァ (EC96H-ED9 5H 番 地 ) 
に 格納 し て も どり ます . た だ し , 入力 デー タ は 2 5 4 バイ ト ま で が 有効 で , 2 5 
4 バイ ト を 超え て 入力 し た 場合 に は , 先頭 か ら の 2 5 4 バイト が 入力 デー タ と 見 
な され ます . 

デー タ の 入力 は , RETURN キ ー (CTRL 二 M) また は STOP キ ー (C 
TRL+C) の 入力 に よっ て 終了 し ます が , 前 者 の 場合 に は キャ リ ・ フ ラグ (C 
Y) を 0 に リセ ッ ト し , 後者 の 入力 に よっ て スク リー ン ・ エ ディ ト を 中 断 し た 場 
合 に は , キャ リ ・ フ ラグ (CY) を 1 に モッ ト し て も どり ます . 

この サブ ルー チン か ら の リタ ー ン 時 に は , レジ スタ HL に EC9 5H (イン プ 
ッ ト ・ バ ッ フ ァ の 開始 アド レス ー 1 ) が アキ ュ ム レー タ に は 最後 に 入力 され た 
キャ ラク タ の キャ ラク タ ・ コ ー ド (0 3 H ま た は 0 DH) が 与え られ ます . 





。 
す 
3】 ーーー Conver 七 tring intO Capita]ls ーー 
H 


ORG6 0C100H 
H 

C100 112FC1 START: LD DE,PROMPT 
C103 CD26C1 CALL DSPMSG 
C106 CD8A1B 1 CALL 1B8AH 3 1 ine inPu モ =ubCou モ ine 
C109 DA665C JP C,5C66H 3 jump to system monitor if stop key 
C10C 113DC1 LD 。 DE,ANSUER 
C10F CD26C1 CALL DSPMSG 
C112 23 LOOP: INC HL 
C113 7E LD AA,(HL ) 』 ge the f げ ir data of edi モ 
C114 AZ AND A j check end mark or no 
C115 28E9 JR Z,START 3 1nPu 七 a tring again if end mark 
C117 FE61 ・ GPS 27 ) 
C119 3806 JR C,DSPLAY H 
C11B FE7B CP ^ テ "+1 : check and conver into capita]s 
C11D 3002 JR NC,DSPLAY 日 
C11F CBAF RES 5,A 日 


C121 CDS702 DSPLAY :CALL 0257H 
C124 18EC JR LOOP 


dispalay a character 


: display message ubCoutine 


日 1npu モ s : op address of message in register de 
H destCoys= : register a,T。d,e 
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C126 
C127 
C128 
C129 
C12C 
C12D 


C12F 
C133 
C137 
C13B 
C13D 
C141 
C145 


C149 


1A 
AZ 
C8 
CDS702 


18F?7 


0D0A6120 
73747269 
6E67203F 
2000 

63617069 
74616C73 
203A2000 


%GC100 


a String 
capitals 
a 8tring 
capitals 
a String 
capitals 
a tring 
capitals 
a tring 
capitals 
8 8tring 
capitals 
a 8tring 
capitals 
a 8tring 
capitals 
a tring 
capitals 
a tring 


3 
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m メ 
MY 


相 ア 
MY 


my 
MY 


つ … つ … つ … つ … つ … つ … つ … づつ … つや … づつ 


H 
DSPMSGiLD  A,(DE) 
AND Aa 
RET Z 
CALL 0257H j display a character 
INC DE 
JR DSPMSG 


me ら 89@G 8 じ @ ら 8 


で ーー … 


ROMPT:DEFB 0DH,0AH,“a string ? "0 


ANSMUER:DEFB “capitals : “,0 


END 


this is a dog・ 
THIS IS A DOG・ 
this is my dog・ 
THIS 1S MY DOG・ 


dog is in the box. 
DOG IS IN THE BOX. 


this is a ca セ 。 
THIS 1S A CAT. 
も this is my ca セ 。 
THIS IS MY CAT. 


cat is in the box。 
CAT IS IN THE BOX. 


this is a ball. 
THIS IS A BALL. 
this is my・ball・ 
THIS 1S MY BALL. 


ball is on the table・. 
BALL 1S ON THE TABLE. 


1F8BH BAS1C テ キス ト の 終了 アド レス 設定 


アド レス | 1F8BH 


機 能 | BAS1C テ キス ト の 終了 アド レス 設定 


レジ スタ | AFBCDEHL 


[解説 | レジ スタ H 工 に 格納 され た アド レス を , BASIC テ キス ト ・ エ リ 
ア の 終了 アド レス , すなわち 変数 エリ ア の 先頭 アド レス と し て 設定 する た め , 各 
ワー ク ・ エ リア を 適切 な 値 で イニ シア ライ ズ 後 ,。 プロ ンプ ト ・ メ ッ セ ー ジ “Ok" 
を 表示 し て , BAS IC の スク リー ン ・ エ ディ ト ・ モ ー ド に 入り ます . 

イン タプ リタ で は , CMT イ ンタ フェ ー ス か ら BA S 1 C の プロ グラ ム を 読み 
込ん だ 直後 に . この ルー チン を 通過 し て いま す . 





サン プル 





ーーー ut ュ 11 1 モッ 。 memory モ o data version 3。0 --- 


ORG 0C100H 
C100 21E8FD LD HL , 65000 ) tarting ]ine number of basic tex モ 
C103 22E8C1 LD (LINENO) ,HL 
C106 3E5D LD Au コ 7 
C108 CD5702 CALL 0257H j display a promp mark 
C10B 210000 LD HL,O ) 
C10E 54 LD D,H ) clear register de and register h1 
C10F SD LD EL H 
C110 CD8CC1 " CALL INADDR ) inpu モ top address of data block 
C113 DA66S5C JP C,5C66H }j exi 七 i 千 break or 1nput error 
C116 C2665C JP _ NZ,SC66H j exi モ i 千 return key 
C119 EB " EX DE,HL 
C11A CD8CC1 CALL INADDR ?) inpu セ end address of data block 
C11D DA665C JP C,S5C66H ) exi モ i 千 break or inPu erCor 
C120 CA665C JP Z,5C66H j exi 七 i 千 comma key 
C123 CD9540 " CALL 4095H j compare op address, end address 
C126 DA665C JP C,5C66H ji exi 七 i 千 end address > op address 
C129 22E6C1 - LD (ENDADR ) , HL ) = て tore end address 
C12C D5 PUSH DE 
C12D CD753D CALL 3D75H ) sense end address of basic tex セ 
C130 EB EX DE ,HL 
C131 D1 POP DE 

H 

C132 22E4C1 TOLINE iLD (BASSTK) ,HL j store address of ] ink-pointer 
C135 23 INC HL j Skip ュ モ 
C136 23 INC HL 3 Bkip ュ モ も 
C137 ED4BE8C1 LD BC,(LINENO) 1 
C13B 71 LD (HL ),C H 
C13C 23 INC HL j urite 1ine number of tex モ 
C13D 70 LD (HL ) ,B 日 
C13E 23 INC HL 日 
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C13F 
C140 


C144 
C146 


C14?7 
C1492 


C14A 
C14C 
C14D 
C14E 
C151 
C152 
C153 
C154 
C155 


C156 
C15 ァ 7 
C15A 
C15D 
C15E 


C160 
C161 
C163 
C164 


C166 
C16? 
C169 


C16A 
C16E 
C171 


C174 


C176 
C178 


C179 
C17D 
C180 


C183 
C185 
C186 


C188 
C189? 


C18C 
C18F 
C192 
C195 


C198 
C19A 


C19B 
C19D 


C19F 
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03 
ED43E8C1 


3684 
23 


3620 
23 


0610 
DS 

1A 
CDCAC1 
72 

23 

73 

23 

D1 


ES 
2AE6C1 
CD9540 
E1 
2816 


13 
362C 
23 
10E6 


2B 
3600 
23 


DD2AE4C1 
DD7500 
DD7401 


18BC 


3600 
23 


DD2AE4C1 
DD7S00 
DD7401 


3600 
23 
3600 


23 
C38B1F 


210000 
CD750F 
CDCC4C 
CD5702 


FE04 
D8 


FE0D 
2817 


FE2C 


INC 
LD 


LD 
INC 


LD 
INC 
LD 
NEMMEM : PUSH 
LD 
CALL 
LD 
INC 
LD 
INC 
POP 


PUSH 
LD 
CALL 
PoP 
JR 


INC 
LD 
INC 
DJNZ 


DEC 
LD 
INC 


LD 
LD 
LD 


JR 


EOFILE:LD 
INC 

LD 
LD 
LD 


LD 
INC 
LD 


INC 
JP 


〇 セロ 


H 

INADDR:LD 

INADD1 :CALL 
CALL 
CALL 


CP 
RET 


CP 
JR 


CP 


BC 
(LINENO ) , BC 


(HL ) , 84H 
HL 


(HL),/ 
HL 


B,16 
DE 
A,(DE ) 
ACCHEX 
(HL),D 
HL 
(HL ) ,E 
HL 

DE 


HL 

HL , (ENDADR ) 
4095H 

HL 

Z,EOF ILE 


DE 

(HL の 
HL 
NEMNMENM 


HL 
(HL),0 
HL 


IX,(BASSTK ) 
(IX)」L 
(IX+1 ) 日 


TOLINE 


(HL ),0 
HL 


IX,(BASSTK ) 
(IX)」L 
(IX+1),H 


(HL),0 
HL 
(HL),0 


HL 
1FSBH 


input address Subroutine 


incremen モ ]ine number 
Store 1 


urite intermediate code of “data" 


erite intermediate code of 


ge て byte data from memory 
coOnVert ュ モ in セ to wo characters 
ぃ urite msb byte of data 


urite lsb byte of data 


) ge end address of data block 
check end address or no 


j end of text if end of data 


urite intermediate code of 「。 


nex data 


urite end of ]ine mark 


urite ]1ink-pointer of last line 


urite ]ink-pointer of last line 


urite end of tex モ mark 


Xse 七 千 て て ing uork area of bagiC 


: input address in register hl 
se carry flag if error or break 
reset carry flag and reset zero flag iT return 
rese carry 下 ]ag and set zero flao if comma 


HL ,0 

OF75H 
4CCCH 
0257H 


04H 
C 


0DH 
Z,RESZ 


destroys : register a ヵ fh,1 


inpu モ a characer 
conver 七 1 七 into capital letteC 
echo-back 1 モ 


) check stop key or no モ 
j) set cy if break 


check return key or no モ 
reset cy and reset z iT return key 


check comma key or no も 


C1A1 


C1A2 
C1A5 


C1A6 
C1A8 
C1AA 
C1AC 
C1AE 
C1AF 
C1B0 
C1B1 
C1B2 
C1B3 


C1B4 


C1B6 
C1B7 


C1B8 
C1BA 
C1BB 
C1BD 
C1BF 
C1C1 
C1C3 
C1CS5 


C1C6 
C1C ァ 7 


C1C8 
C1C9 


C1CA 
C1CB 
C1CC 
C1CD 
C1CE 
C1CF 
C1D2 
C1D3 
C1D4 
C1D7 
C1D8 


C1D9 
C1DB 
C1DD 
C1DF 


C1E1 
C1E3 


C1E4 
C1E6 
C1E8 


C1EA 


C8 


CDB8C1 
D8 


FE3A 
3802 
C60? 
E60F 
29 
29 
29 
29 
85 
6F 


18D9 


3D 
C9 


FE30 
D8 

FE47 
3009 
FE3A 
3803 
FE41 
D8 


A7 
C9 


37 
C9 


F5 
OF 
0F 
OF 
OF 
CDD2C1 
5? 
F1 
CDD9C1 
5F 
C? ヶ 


E60F 
FE0A 
3802 
C607 


C630 
C9 


RET 


CALL 
RET 


CP 
JR 
ADD 
INADD2 : AND 
ADD 
ADD 
ADD 
ADD 
ADD 
LD 
JR 


H 


RESZ: DEC 
RET 


Z 


CHKHEX 
C 


2 の 7+3 

C, INADD2 
AA の 9 

0FH 
HL,HL 
HL,HL 
HL,HL 
HL,HL 
AL 

L,A 


INADD1 
に 1 


Fee cy and set z if comma key 


check hexa code or no セ も 
et cy if not hexa code 


conver モ into binary code 
and store into register hl 


next digi モ 


reset zero flag 


check hexa decimal code subroutine 


1npu モ 8 


character code in accumul ao 


outputs  : rese carry flag if hexa code 


HKHEX :CP 
RET 
CP 
JR 
CP 
JR 
CP 
RET 


RESCY: AND 
RET 


SETCY: SCF 
RET 


日 
H 
H 
H 
H 
H de モ じ oy ツラ 
H 
C 


207 
C 

"F“+1 
NC,SETCY 
^ の "+1 
C,RESCY 
や 

C 


A 


register a 


reset carry flag 


et carry fl]ag 


convert binary code into uo hexa characters 


de= モ Co ツラ 


H 
H 
H 
H input ら = 
H 
H 


ACCHEX:PUSH 
RRCA 
RRCA 
RRCA 
RRCA 
CALL 
LD 
POP 
CALL 
LD 
RET 


HALF: AND 
CP 
JR 
ADD 


NUMBER : ADD 
RET 


uork area 


BASSTK:DS 
ENDADR:DS 
LINEN0:DS 


H 
END 


: binary code in accumul ator 
outputs  : hexa character code in register d,e 


8。 和 fd。e 
AF 


HALF 
D,A 
AF 
HALF 
E,A 


0FH 
10 
C,NUMBER 
っ ア 


A. 07 


Tor uork 


2 
2 
2 


3j address of ] ink-pointer 
: end address of data block 
j』 1ine number of basic tex モ 
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240FH 単 精度 型 実数 の 減算 





アド レス | 240FH 
機 能 | 単 精度 型 実 数 の 減算 
レジ スタ | AFBCDEHL 




















解 説 | レジ スタ BCDE に 格納 され た 上 単 精度 型 の 実数 を 被 減数 と し , フロ 
ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 単 精度 型 の 実数 を 減数 と し て , 両者 の 
間 で 減算 を 行い , 演算 結果 を フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 し て も どり 
ます . 


サン プル 








ーーー Bubtraction for single preci ら Bion 一 


ORG 0C100H 

す 
C100 2146C1 START: LD HL,PRMPT1 
C103 CD3DC1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH ) screen editor 
C109 DA665C JP C,5C66H :) ョ ytem monitor if stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH }) convert into binary code 
C110 CDB327 CALL 27B3H j convert into single precision 
C113 CDBD26 CALL 26BDH j) move from facc to register bcde 
C116 C5 PUSH BC 
C117 D5 PUSH DE 

H 
C118 2156C1 LD HL,PRMPT2 
C11B CD3DC1 CALL DSPMSG 
C11E CD7E1B CALL 1B7ZEH 3 SBcreen edi モ or 
C121 23 INC HL 
C122 CDBE2B CALL 2BBEH 』 convert into binary code 
C125 CDB32? CALL 27B3H j』 convert into single precision 
C128 D1 POP DE 
C129 C1 POP BC 
C12A CDOF24 CALL 240FH j※subtraction for single precision 
C12D CD222D CALL 2D22H j conver into character code 
C130 E5 PUSH HL 
C131 2163C1 。 LD HL,ANSMER 
C134 CD3DC1 CALL DSPMSG 
C137 E1 POP HL 
C138 CD3DC1 CALL DSPMSG j display reaul モ 
C13B 18C3 JR START 

日 

) display me=aage SubCOou モ ine 

H 
C13D 7E DSPMSGiLD  A,(HL) 
C13E AZ AND A 
C13F C8 RET Z 
C140 CD5702 CALL 0257H j display a characer 
C143 23 INC HL 
C144 18F ァ 7 JR DSPMSG 

H 

) me らら 8aage ae@a 

H 
C146 0D0A0A20 PRMPT1 :DEFB 0DH,0AH,0AH,” x! ? 0 


C14A 20202020 
C14E 78212020 
C152 203F2000 
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C156 20202020 PRMPT2:DEFB ^ ッ ! 7 40 
C15A 20792120 
C15E 20203F20 
C162 00 
C163 7821202D ANSUER:DEFB ^x! - y! --> ^,0 
C167 20792120 
C16B 2D2D3E20 
C16F 00 
C170 END 
※GC100 
x! ? 20 
ッ ! ? 30 
x! ーッ ! ーー-> -10 
x! ? 1000000 
ッ ! ? 1 


x! - 


ッ ! --> 999999 


x! ? 12345678901234567890 
ッ ! ? 0 
ッ ! --> 1.23457E+19 


x! ? 0.5 
ッ ! ? 0.6 
ア ! --> -。1 
x! ? 
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2412H 単 精度 型 実数 の 加算 





アド レス 
機能 
レジ スタ 
































解説 





ます . 








サン プル 








C100 2146C1 
C103 CD3DC1 
C106 CD7E1B 
C109 DA66SC 
C10C 23 

C10D CDBE2B 
C110 CDB327 
C113 CDBD26 
C116 CS 

C117 DS 


C118 2156C1 
C11B CD3DC1 
C11E CD7E1B 
C121 23 

C122 CDBE2B 
C125 CDB32?7 


C128 D1 
C129 C1 
C12A CD1224 
C120D CD222D 
C130 ES 
C131 2163C1 
C134 CD3DC1 
C137 E1 
C138 CD3DC1 


C13B 18C3 


C13D 7E 
C13E AZ 
C13F C8 
C140 CD5702 
C143 23 
C144 18F?7 


C146 0D0A0A20 


2412H 


単 精度 型 実数 の 加算 
AFBCDEHL 


レジ スタ BCDE に 格納 され た 単 精度 型 の 実数 を 被 加 数 と し , フロ 
ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 単 精度 型 の 実数 を 加 数 と し て , 両者 の 
間 で 加算 を 行い 演算 結果 を フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 し て も どり 


ORG 


START: LD 
CALL 
CALL 
JP 
INC 
CALL 
CALL 
CALL 
PUSH 
PUSH 


LD 
CALL 
CALL 
INC 
CALL 
CALL 


POP 
POP 
CALL 
CALL 
PUSH 
LD 
CALL 
POP 
CALL 


JR 


ロー … <・ 


ISPMSG:LD 
AND 
RET 
CALL 
INC 
JR 


で ーー 


C14A 20202020 
C14E 78212020 
C152 203F2000 
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0C100H 


HL , PRMPT1 
DSPMSG 
1B7EH 
C,S5C66H 
HL 

2BBEH 
27B3H 
26BDH 

BC 

DE 


HL , PRMPT2 
DSPMSG 
1B7EH 

HL 

2BBEH 
27B3H 


DE 

BC 

2412H 
2D22H 

HL 

HL , ANSUER 
DSPMSG 

HL 

DSPMSG 


START 


display message SubCou モ ine 


A,(HL) 
A 

Z 
0257H 
HL 
DSPMSG 


me きき 89G 8"@8 


RMPT1 :DEFB 0DH,0AH,0AH,“ 


ーーー addition for single PCec1 ら 1oOn 一 一 


creen edi モ or 
ョ y ッ Stem monitor if stop key 


convert into binary code 


conver セ into single precision 
move from facc to register bcde 


Screen edi モ or 


conver セ into binary code 
convert into single precision 


Xaddition for single precision 


convert into character code 


di gpl ay resul モ 


display a character 


C156 20202020 PRMPT2:DEFB “ ッ ! ? 0 
C15A 20792120 
C15E 20203F20 
C162 00 
C163 7821202B ANSMER:DEFB ^x! + ッ | ー-> 0 
C167 20792120 
C16B 2D2D3E20 
C16F 00 
C170 END 
\GC100 
x! ? 0.123 
ッ ! ? 0.00?7 
x! キッ トー-> .13 
x! ? 20 
ッ ! ? -50 
x! キッ トー-> -30 
x! ? 123.456 
ッ ! ? 0.0000001 
x! + ッ | ー-> 123.456 
x! ? abc 
ッ ! ? def 
x! キット ー-> 0O 
x! ? 
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2503H 自然 対数 の 計算 





アド レス 





機 


レジ スタ 


能 








解 





説 


250383H 
自然 対数 の 計算 
AFBCDEHL 


フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 単 精度 型 実数 の , 自 


然 対数 (e を 底 と し た 対数 ) の 値 を 求め 同じく フロ ー テ ィング ・ ア キュ ムレ ー 
タ に 与え て も どり ます . 


サン プル 


C100 
C103 


C106 
C109 


C10C 
C10D 


C10E 
C111 
C114 
C117 


C11A 


C11B 
C11E 


C121 
C122 


C125 
C128 


C12B 
C12C 


C12F 


C131 
C132 
C133 
C134 
C137 
C138 


C13A 
C13E 
C142 
C146 
C148 
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ーーー 1og function eg モ 上 progtam 一 


ORG 0C100H 


START: LD HL,PROMPT 


213AC1 
CD31C1 CALL DSPMSG 
CD7E1B CALL 1B7EH ) screen edi モ or 
DA665C JP C,5C66H j syStem moni モ or i 千 stop key 
H 
23 INC HL 
E5 PUSH HL 
CDBE2B CALL 2BBEH j convert into binary code 
CDB327 CALL 27B3H ) convert into single precision 
CD0325 CALL 2503H j%※1og function 
CD222D CALL 2D22H j Convert into character code 
EB EX DE ,HL ) top address of resul モ in reg-de 
2148C1 LD HL,ANS1 
CD31C1 CALL DSPMSG 
E1 | POP HL j top address of a input number 
CD31C1 CALL DSPMSG j display a input number again 
2154C1 LD 。 HL,ANS2 
CD31C1 CALL DSPMSG 
EB EX DE ,HL : top address of result in reg-h1 
CD31C1 CALL DSPMSG j display result 
18CF JR START 
: display mesBage SubCou せ ine 
7E DSPMSG:LD Aa,〈HL) 
A7 AND A 
C8 RET Z 
CD5702 CALL 0257H j display a character 
23 INC HL 
18F7 JR DSPNMSG 
: me ら 5age ar@a 
0D0A6120 PROMPT:DEFB 0DH,0AH,"a number ? 0 
6E756D62 
6572203F 
2000 
20202020 ANS1: DEFB “ 1og ( “,0 


C14C 206C6F67 

C150 20282000 

C154 20292069 ANS2: DEFB ^ ) is equal to “,0 
C158 7?3206571 

C15C 75616C20 

C160 746F2000 


C164 END 
\GC100 
a number ? 0.001 
1og ( 0.001 ) is equal to -6.90776 
8a number ? 0.01 
1og ( 0.01 ) is equal to ー-4 .6051? 
8a number ? 0.1 
1og ( 0.1 ) is equal to -2.30259 
8 number ? 1 
1og ( 1 ) is equal to 0 
8 number ? 10 
1og ( 10 ) is equal to 2.30259 
8a number ? 100 
1og ( 100 ) is equal to 4.60517 
8a number ? 10000 
1og ( 10000 ) is equal to 9.21034 
a number ? 100000000 
1og ( 100000000 ) is equal to 18.4207 


8a number ? -100 
111egal function ca]1 
0k 
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2541H 単 精度 型 実 数 の 乗算 


アド レス | 2541H 


機 ' 能 | 単 精度 型 実 数 の 乗算 
レジ スタ | AFBCDEHL 











解 説 | レジ スタ BCDE に 格納 され た 上 単 精度 型 の 実数 を 被 乗 数 と し , フロ 
ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 単 精度 型 の 実数 を 乗数 と し て , 両者 の 
間 で 乗算 を 行い , 演算 結果 を フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 し て も どり 
ます . 


サン プル 








ーーー multiplication for single precision 一 ーー 


ORG 0C100H 
C100 2146C1 START: LD HL ,PRMPT1 
C103 CD3DC1 CALL DSPMSG 
C106 CD7E1B CALL 1B7ZEH ) creen edi モ or 
C109 DA665C JP C,5C66H j =ystem monitor if stop key 
C10C 23 INC HL 
C100D CDBE2B CALL 2BBEH j convert into binary code 
C110 CDB32? CALL 27B3H ) convert into single precision 
C113 CDBD26 CALL 26BDH j move from facc to register bcde 
C116 CS PUSH BC 
C117 DS5 PUSH DE 
H 
C118 2156C1 LD HL,PRMPT2 
C11B CD3DC1 CALL DSPMSG 
C11E CD7E1B CALL 1B7EH ) creen editor 
C121 23 INC HL 
C122 CDBE2B CALL 2BBEH j conver モ ino binary code 
C125 CDB327 CALL 27B3H j convert into single precision 
日 
C128 D1 POP DE 
C129 C1 POP BC 
C12A CD4125 CALL 2541H j%multiplication for single 
C12D CD222D CALL 2D22H j』 convert into character code 
C130 E5 PUSH HL 
C131 2163C1 LD HL,ANSUER 
C134 CD3DC1 CALL DSPMSG 
C137 E1 POP HL 
C138 CD3DC1 CALL DSPMSG j display reaul モ 
H 
C13B 18C3 JR START 
: display me3age ら ubCOuine 
H 
C13D 7E DSPMSGiLD  A,(HL) 
C13E AZ AND A 
C13F C8 RET Z 
C140 CD5702 CALL 0257H ) display a character 
C143 23 INC HL 
C144 18F7Z JR DSPMSG 
日 
) me らら age ar@a 
C146 0D0A0A20 PRMPT1 :DEFB 0DH,0AH,0AH,” x! ? 20 


C14A 20202020 
C14E 78212020 
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C152 203F2000 

C156 20202020 PRMPT2:DEFB “ ッ ! ? 20 
C15A 20792120 

C15E 20203F20 

C162 00 

C163 7821202A ANSMER:DEFB "xi * ッ !| ーー> “0 
C167 20792120 

C16B 2D2D3E20 


C16F 00 
H 

C170 END 
\GC100 

x! ? 10000 

ッ ! ? 100 
x! ※ ッ | ー-> 1E+06 

x! ? 1 

ッ ! ? 1 
x! %※ ッ |ー-> 1 

x! ? 2 

ッ ! ? 2 
x! %※ ッ トー-> 4 

x! ? 100 

ッ ! ? 123 


x! ※ ッ | ー-> 12300 


x! ? 
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259CH 単 精度 型 実数 の 除算 


アド レス | 259CH 


機 能 | 単 精度 型 実 数 の 除算 
レジ スタ | AFBCDEHL 




















解説 | レジ スタ BCDE に 格納 され た 単 精度 型 の 実数 を 被 除 数 と し , フロ 
ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 単 精度 型 の 実数 を 除 数 と し て , 両者 の 
間 で 除算 を 行い , 演算 結果 を フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 し て も どり 
ます . 

フロ ー テ ィング ・ ア キュ ムレ ー タ に 与え る 除 数 が 0 (ゼロ ) で あっ た 場合 に は , 
“Division by zero" エラ ー が 発生 し. イン タプ リタ の 制御 下 に 入り ます . 





ーーー division for aingle Preci ら ion 一 ーー 


ORG 0C100H 
H 
C100 2146C1 START: LD HL,PRMPT1 
C103 CD3DC1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH j screen edi モ or 
C109 DA665C JP C,5C66H ) sy ョ tem monitor if stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH 3 convert into binary code 
C110 CDB32? CALL 27B3H j convert into single precision 
C113 CDBD26 CALL 26BDH j move from facc to register bcde 
C116 C5 PUSH BC 
C117 D5 PUSH DE 
C118 2156C1 LD HL ,PRMPT2 
C11B CD3DC1 CALL DSPMSG 
C11E CD7E1B CALL 1B7EH ) screen edi モ or 
C121 23 INC HL 
C122 CDBE2B CALL 2BBEH :』 convert into binary code 
C125 CDB327 CALL 27B3H ) convert into single precision 
日 
C128 D1 POP DE 
C129 C1 POP BC 
C12A CD9C25 CALL 252CH j※division for single precision 
C12D CD222D CALL 2D22H 3 Convert into character code 
C130 ES PUSH HL 
C131 2163C1 LD HL , ANSUER 
C134 CD3DC1 CALL DSPMSG 
C137 E1 POP HL 
C138 CD3DC1 CALL DSPMSG j display resul モ 
C13B 18C3 JR START 
日 
j display message SubCoutine 
H 
C13D 7E DSPMSG:LD A,(HL) 
C13E AZ AND A 
C13F C8 RET Z 
C140 CD5702 CALL 0257H : display a character 
C143 23 INC HL 
C144 18F7 JR DSPMSG 
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C146 
C14A 
C14E 
C152 
C156 
C15A 
C1SE 
C162 
C163 
C167 
C16B 
C16F 


C170 


}) ma8= ラ age aea 


0D0A0A20 PRMPT1 :DEFB 0DH,0AH,0AH,“ x! ? 40 
20202020 

78212020 

203F2000 

20202020 PRMPT2:DEFB “ ッ ! ? 0 
20792120 

20203F20 

00 

7821202F ANSMER:DEFB "x! ノッ ピー-> 0 
20792120 

202D3E20 

00 


END 


%GC100 


x! / 


x! ? 100000 
ッ ! ? 10 
ッ ! --> 10000 


x! ? 10 

ッ ! を -3 

ッ ! --> -3.33333 
x! ? 20 

ッ ! ? 6 

ッ ! --> 3.33333 
x! ? -5 

ッ ! ? -5 

ッ !| ーー-> 1 

x! ? 5 

ッ ! ? abc 


Division by zero 


0k 
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2671H 絶対 値 の 計算 


アド レス | 2671H 
機能 | 絶対 値 の 計算 


レジ スタ | AFBCDEHL 


[ 解 説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 数 値 デ ー タ の 絶対 値 
を 求め 、 同 じ し く フロ ー テ ィング ・ ア キュ ムレ ー タ に 与え て も どり ます . 

演算 結果 は , フロ ー テ ィング ・ アキ ュ ム レー タ に 格納 され た 数 値 デ ゲー タ が 倍 精 
度 実数 型 の 場合 に は 倍 精度 実数 型 に , それ 以外 の 場合 に は 単 精度 実数 型 に な り ま 
す 











ーーー abs funcion 上 らき 上 PCOg モ am 一 一 一 


ORG 0C100H 

C100 2137C1 START: LD HL,PROMPT 
C103 CD2EC1 CALL DSPMSG 
Cc106 CDZE1B CALL 1B7EH ) screen editor 
C109 DA665C JP C,S5C66H : ytem monior if stop key 
C10C 23 " INC HL 
C10D E5 PUSH HL 
C10E CDBE2B - CALL 2BBEH j conver モ into binary code 
C111 CD7126 CALL 2671H jX※aba Function 
C114 CD222D CALL 2D22H ) conver セ into character code 
C117 EB 5 EX DE ,HL j top address o 和 T resul モ in reg-de 
Cc118 2145C1 LD HL,ANS1 
C11B CD2EC1 CALL DSPMSG 
C11E E1 " POP HL : top address of a input number 
C11F CD2EC1 CALL DSPMSG : display a input number again 
C122 2151C1 LD HL,ANS2 
C125 CD2EC1 CALL DSPMSG 
C128 EB 6 EX DE ,HL : top address of result in reg-h1 
C129 CD2EC1 CALL DSPMSG j display resul モ 
C12C 18D2 JR START 

: display meS=age SubFOu モ ine 
C12E 7E DSPMSG:LD A,(HL) 
C12F AZ AND A 
C130 C8 RET Z 
C131 CD5702 CALL 0257H ) display a Charac て er 
C134 23 INC HL 
C135 18FZ7 JR DSPMSG 


me らら 389 ど G 8PG8 


で … 


C137 0D0A6120 
C13B 6E756D62 


ROMPT :DEFB 0DH,0AH,"a number ? 0 
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C13F 6572203F 


C143 2000 
C145 20202020 ANS1: DEFB “ abs ( “,0 
C149 20616273 
C14D 20282000 
C151 20292069 ANS2: DEFB “ ) is equal to “,0 
C155 73206571 
C159 75616C20 
C15D 746F2000 
C161 END 
*GC100 
a number ? 3 
abs ( 3 ) is equal to 3 
8a number ? -3 
abs ( -3 ) is equal to 3 
a number ? 3 を 
abs ( 3 ) is equal to 3 
8 number ? ー3 を 
abs ( -3% ) is equal to 3 
a number ? 3.3 
abs ( 3.3 ) is equal to 3.3 
a number ? -3.3 
abs ( -3.3 ) is equal to 3.3 
a number ? 3333333333333333 
abs ( 3333333333333333 ) is equal to 3333333333333333 
a number ? -3333333333333333 
abs ( -3333333333333333 ) is equal to 3333333333333333 
a number ? &h11 
abs ( &h11 ) is equal to 17 
a number ? &hfffe 
abs ( &hfFffe ) is equal to 2 
a number ? 
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267EH 実数 の 符号 反転 


アド レス | 267EH 
機能 | 実数 の 符号 反転 
| レジ スタ | AFーーーーHL 

















解 説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され て いる 単 精度 型 実 数 ま 
た は 倍 精度 型 実 数 の 符号 を 反転 (NAGATION) し て も どり ます . 

具体 的 に は , フロ ー テ ィング ・ ア キュ ムレ ー タ の 仮数 部 最上 位 バ イト (F0A 
AH 番地 ) の 最上 位 ビッ ト を 反転 する こと に よっ て 符号 の 反転 を 実現 し て お り , 
EF45H 番 地 の チ ェ ッ ク 等 エラ ー 処 理 は 全く 行っ て いま せん か ら , フロ ー テ ィ 
ング ・ ア キュ ムレ ー タ の デー タ は 必ず 実数 型 で な けれ ば な り ま せん . 





ーーー- negation for the real number 一 


ORG 0C100H 

C100 2134C1 START: LD HL ,PROMPT 
C103 CD2BC1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH ) screen edi モ or 
C109 DA665C JP C,5C66H j ョ ytem monitor i 千 stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH j Conver モ into binary code 
C110 3A4SEF 5 LD  A,(OEF4SH) H 
C113 FE02 CP 2 ) convert into the real number 
C115 CCDO27 CALL Z,27D0H H 
C118 CD7E26 CALL 267EH j※negation for the real]l number 
C11B CD222D CALL 2D22H j conver 革 into character code 
C11E E5 PUSH HL 
C11F 214CC1 LD HL,ANSMER 
C122 CD2BC1 CALL DSPMSG 
C125 E1 POP HL 
C126 CD2BC1 CALL DSPMSG j diSplay eSul セ 
C129 1805 JR START 

H display mes5sage Subroutine 

1 destroy8 : register ah,1 
C12B 7E DSPMSG:LD 。A,(HL) 
C12C AZ AND AaA 
C12D C8 RET Z 
C12E CD5702 CALL 0257H j display a characer 
C131 23 INC HL 
C132 18F ァ 7 JR DSPMSG 


me=889G 8P@8a 


で ー 


C134 0DOA0A61 
C138 20726561 
C13C 6C206E75 
C140 6D626572 
C144 20782020 


ROMPT:DEFB 0DH,0AH,0AH,"a real number x ? 40 
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C148 203F2000 

C14C 20202020 ANSMER:DEFB 
C150 20202020 

C154 20202020 

C158 202D7820 

C15C 2D2D3E20 

C160 00 


と 沈 - ぞ ネ で 0 


C161 END 


\6C100 
a real number x ? 123456789 
ーx ーー> -123456789 


a real number x 2 -123456789 
ーx --> 123456789 


a real number x ? -1.5 


=x --> 1。5 

a real number x ? &h11 
=x: ニテ ニカ 、 = 上 

a real number x ? &Hfffe 
ご X: デニ ケーー グ 

a real number x ? ーー3% 
ーx ーー-> 3 

a real number x 2 
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2686H 符号 の 調査 





アド レス | 2686H 
機能 | 符号 の 調査 
レジ スタ | AFーーーーH し 


























解 説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 数 値 デ ー タ が , 正 の 
場合 に は 1 を , 0 (ゼロ ) の 場合 に は 0 を , 負 の 場合 に は 1 を , それ ぞ れ フロ 
ー テ ィング ・ ア キュ ムレ ー タ に 整数 形式 で 格納 し , EF 4 5H 番 地 に も 整数 型 を 
示す 0 2 H を 与え ます . 

EF45H 番 地 に 0 3 H が 入っ て いた 場合 に は , “Type mismatch' エラ フー が 発 
生 し , イン タプ リタ の 制御 下 に 入り ます . 


ーーー sgn func モ ion e ョ 上 PFrogtam 一 


ORG 0C100H 
C100 2154C1 START: LD HL ,PROMPT 
C103 CD4BC1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH ) creen edi モ or 
C109 DA66S5C JP C,SC66H j syStem moni モ or i 千 stop key 
C10C 23 INC HL 
C10D E5 PUSH HL 
C10E CDBE2B 0 CALL 2BBEH 3』 Conver モ into binary code 
C111 CD8626 CALL 2686H 3※sgn function 

H 

C114 3AA8F0 LD A,(OF0A8H ) 
C117 08 EX AF,AF" 
C118 CD222D 6 CALL 2D22H j Convert into character code 
C11B EB 1 EX DE,HL j て op address of result モ in reg-de 
C11C 2162C1 LD HL,ANS1 
C11F CD4BC1 CALL DSPMSG 
C122 E1 " POP HL j top address of a input number 
C123 CD4BC1 CALL DSPMSG j display a input number again 
C126 216EC1 LD 。 HL,ANS2 
C129 CDA4BC1 CALL DSPMSG 
C12C EB EX DE ,HL : top address of result in reg-h1 
C12D CD4BC1 CALL DSPMSG :) display resul モ 
C130 08 1 EX AF , AF 
C131 FE01 CcP 01H 
C133 2005 JR NZ , NOP0S1 
C135 217EC1 LD HL,POSI 
C138 180C JR DSPLAY 
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C134 
C13C 


C13E 
C141 


C143 
C146 
C149 


C14B 
C14C 
C14D 
C14E 
C151 
C152 


C154 
C158 
C15C 
C160 
C162 
C166 
C16A 
C16E 
C172 
C176 
C17A 
C17E 
C182 
C186 
C18A 
C18E 
C192 
C196 
C19A 
C19C 
C1A0 
C1A4 
C1A8 
C1AC 
C1B0 
C1B4 
C1B8 
C1BC 
C1C0 
C1C4 
C1C8 
C1CC 
C1D0 


C1D2 


FE00 
2005 


219CC1 
1803 


21B4C1 
CD4BC1 
18BS 


7E 

AZ 

C8 
CD5702 
23 
18F ァ 7 


0D0A61 
6E756D 
657220 
2000 

202020 
206162 
202820 
202920 
732065 
75616C 
746F20 
202020 
206D65S 
6E7320 
6F7369 
697665 
6E7S6D 
657220 
2100 

202020 
206D65 
6E7320 
757374 
7A6572 
202121 
202020 
206D65 
6E7320 
656761 
697665 
6E756D 
657220 
2100 


\GC100 


8 number 


abs 


8 number 


abs 


abs 


a number 


? 
( 
? 
( 
a number ? 
( 
? 
( 
る 


abs 


8 number 


abs (z80) is equal to 0 mean ら jug モ zero !! 
8a number ? 


NOP0S1 :CP 00H 


JR NZ , NOZERO 


LD HL , ZERO 
JR DSPLAY 


NOZERO:LD HL,NEGA 


DSPLAY:CALL DSPMSG 


JR START 


display mesSsage SubCou モ ine 


H 
H 
DSPMSG:LD A,(HL ) 


AND A 
RET Z 
CALL 0257H j display a character 
INC HL 
JR DSPMSG 
) me5age 8aC@a 
20 PROMPT:DEFB 0DH,0AH,"a number ? 40 
62 
3F 
20 ANS1: DEFB “ abs ( “0 
73 
00 
69 ANS2: DEFB ” ) is equal to “,0 
71 
20 
00 
20 POSI: DEFB “ means positive number !!",0 
61 
70 
74 
20 
62 
21 
20 ZERO: DEFB “ means just zero !!7,0 
61 
6A 
20 
eF 
00 
20 NEGA: DEFB “ means negative number !!",0 
61 
e6E 
74 
20 
62 
21 
H 
END 
1 
1 ) is equal to 1 mean ら = Po8i モ ive number ! 
0 
0 ) is equal to 0 mean ら = jus モ zero !! 
=+ 
1 ) is= equal to -1 mean= negative number !! 
-0.0000000000000001 
-0.0000000000000001 ) is equal to -1 mean= nega モ ive number !! 
z80 
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2689H 











を 格納 し て も ど 


機能 
レジ スタ 
解説 





C100 
C102 


C103 
C104 
C107 


C108 


C10B 
C10D 
C10F 


C111 
C114 


C117 
C119 
C11C 
C11F 


C122 


C123 
C124 
C126 


C128 


C12B 
C12C 
C12D 
C12E 
C12F 
C130 
C133 


C134 


C136 
C138 
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3E80 
FS 


F5 
CD8926 
F1 


CD2BC1 


3E80 
0605 
0E00 


CD232D 
CD42C1 


3E20 

CD5702 
CD5702 
CDS702 


F1 


3C 
FE80 
20DA 


C3665C 


4? 
OF 
OF 
OF 
OF 
CD34C1 
78 


E60F 
FE0A 
3802 


8 ビッ ト 整 数 の 格納 


アド レス | 2689H 


8 ビッ ト 整 数 の 格納 
AF 一 一 一 日 し 


アキ ュ ム レー タ に 格納 され た 有 符 号 の 8 ビッ ト 整 数 (1 28 一 1 
2 7 ) を , 有 符 号 1 6 ビッ ト 整 数 に 変換 し て , フ ロー ティ ング ・ ア キュ ムレ ー タ (F 
0A8H-F0A9H 番 地 ) に 格納 し , EF4 5H 番 地 に も 整数 型 を 示す 0 2H 


り ま す . 


日 
j ーーー Bigned numbers ぃ ith a by て te 一 ーー 
H 


ロー ーー < 


HALF : 


ORG 
LD 
PuSH 
PUSH 
CALL 
POP 
CALL 
LD 
LD 
LD 


CALL 
CALL 


LD 

CALL 
CALL 
CALL 


POP 
INC 
CP 
JR 


・JP 


0C100H 
A,80H 
AF 

AF 


26892H 1 ※ ョ tore accumulator into facc 
AF 


DSPACC j display accumulaor hexa decimal 


A,80H H 
B,5 ) aPPoin Torma セ 
C,0 H 


2D23H ) convert into character code 
DSPMSG }) display the number decimal 


AA ン 
0257H 
0257H 
0257H 


AF 

A 

80H 

NZ ,LOOP 


5C66H ) jump て o sy5tem moni モ Oo 


display accumulator hexa decimal ubroutine 


destroys : register a, 生 5 


SPACC iLD 


RRCA 
RRCA 
RRCA 
RRCA 
CALL 
LD 


AND 
CP 
JR 


B,A 


HALF 
AB 


0FH 
10 
C,NUMBER 


C13A C607 ADD A,7 


C13C C630 NUMBER : ADD 全 ,30H 
C13E CD5702 CALL 0257H ) display a character 
C141 C2 RET 


display mesBage ら SubCoutine 


destroys : regiSter a,〒,h,1 


ロー ーー 


C142 7E SPMSG:iLD  A,(HL) 

C143 AZ AND A 

C144 C8 RET Z 

C145 CDS702 CALL 0257H ji display a character 
C148 23 INC HL 

C149 18F7 JR DSPMSG 

C14B " END 

%GC100 


80 -128 81 -127 82 -126 83 -125 84 -124 85 -123 86 -122 87 -121 
88 -120 82 -112 8A -118 8B -117 8C -116 8D -115 BE -114  BF -113 
20 -112 91 -111 292 -110 23 -109 94 -108 95 -107 96 -106 97 -105 
28 -104 99 -103 9A -102 9B -101 2C -100 2D -29 の E -98 9F -97 
AO -26  A1 -95  A2 -924  A3 -93  A4 -92 AS -91  A6 -90 A7 -89 
AB -88  A2 -87 AA -86 AB -85  AC -84 AD -83 AE -82 AF -81 
BO -80 B1 -79  B2 -78  B3 -77  B4 -76  B5 -75 B6 -74  B7 -?73 
B8  -72  B9 -7?71 BA -70 BB -@2 BC -68  BD -67 BE -66 BF -65 
CO -64  C1 -63  C2 -62  C3 -6@1 C4 -60  C5 -59 Ce6 -58 CZ7 -57 
C8 -56 C9 -S5 CA -5S4 CB -53 CC -S52 CD -51 CE -S0 CF -49 
DO -48  D1 -47  D2 -46  D3 -45  D4 -44 DS -43  D6 -42  D7 -41 
D8 -40 D9 -39 DA -38 DB -37 DC -36 DD -35 DE -34 DF -33 
E0 -32  E1 -31 EZ 。 =30  E3 =-2%  E4 -28 EE =27  E@ -26 EZ = 人 
E8 -24  E9 -23  EA -22  EB -21 EC -20 ED -19 EE -18  EF -17 
F0 -16  F1 -15  F2 -14  F3 -13  F4 -12  F5 -11  F6 -10  F7  -9 
F8  -8  F2  -7  FA  -6 FB  -5 FC  -4  FD  -3 FE  -2  FF  -1 
00 0 01 1 02 2 03 3 04 4 05 5 06 6 07 6 
08 8 09 2 。 0A 10 0B 11 0C 12 0D 13  OE 14 OF 15 
10 16 11 17 12 18 13 19 14 20 15 。 21 16 22 17 。 23 
18 24 19 。 25 。 1A 26 1B 27 1C 28 1D 29 1E 30 1F 31 
20 32 21 33 。 22 34 23 35 24 36 25 37 26 38 27 39 
28 40 29 。 41 2A 。 42 2B 43 2C 44 2D 45 2E 46 2F 47 
30 48 31 49 。 32 50 33 51 34 。 52 35 53 36 54 37 55 
38 56 39 57 3A 5S8 3B 59 3C e0 3D 61 SE 22 3F 63 
40 64 41 65 。 42 66 43 6@7 44 68 45 69 46 70 47 71 
48 。 72 49 73 4A 74 4B 75 4C 76 4D 77 4E 78 4F 79 
50 80 51 81 52 82 53 83 54 84 55 85 56 86 57 87 
58 88 52 892 5A 90 SB 91 SC 22 5D 923 SE 94 SF 95 
60 26 61 27 。 6@2 98 6@63 99 64 100 65 101 66 102 67 103 
68 104 62 105 6A 106 6B 107 6C 108 6D 109 6eE 110 6F 111 
70 112 。 71 113 72 114 73 115 74 116 75 117 76 118 77 119 


78 120 79 。 121 7A 122 7B 123 7C 124 7D 125 7E 126 7F 12?7 
※ 
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26AFH 単 精度 型 実 数 の 移動 1 





アド レス 








機能 








レジ スタ 








解説 


2 6 AFH 
単 精度 型 実 数 の 移動 1 
ーー BCDEHL 


レジ スタ HL で 指定 する アド レス か ら 4 バイ ト に 渡っ て 格納 され た 


単 精度 型 の 実数 を ,。 レジ スタ BCDE お よび フロ ー テ ィング ・ ア キュ ムレ ー タ に 
格納 し て も どり ます . 


26B2H 単 精度 型 実数 の 移動 2 





アド レス 
機 能 
レジ スタ 











解説 


26B2H 
単 精度 型 実数 の 移動 2 
ニー ニーDEーー 


レジ スタ BCDE に 格納 され た 単 精度 型 の 実数 を フロ ー テ ィング ・ 


アキ ュ ム レー タ に 格納 し , EF4 5H 番 地 に も 単 精度 実数 型 を 示す 0 4 H を 入れ 
て も どり ます . 


26BDH 単 精度 型 実 数 の 移動 3 


アド レス 
機 能 








レジ スタ 


解説 











26BDH 
単 精度 型 実数 の 移動 3 
ーー BCDEHL 


フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 単 精度 型 の 実数 を , レ 


ジス タ BCDE に 格納 し て も どり ます . 
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26C0H 単 精度 型 実数 の 移動 4 





アド レス | 26C0H 








機能 | 単 精度 型 実数 の 移動 4 








レジ スタ | 一 BCDEHL 














解 説 | レジ スタ H 工 で 指定 する アド レス か ら 4 バイト に 渡っ て 格納 され た 





単 精度 型 の 実数 を 。 レジ スタ BCDE に 格納 し て も どり ます . 


26C9H 単 精度 型 実数 の 移動 5 


アド レス | 26C9H 
機能 | 単 精度 型 実 数 の 移動 5 
レジ スタ | ABCDEHL 








解 " 説 | フロ ー テ ィング ・ ア キュ ー ム レタ に 格納 され た 単 精度 型 の 実数 を 
レジ スタ H 工 で 指定 する アド レス か ら 4 バイ ト に 渡る メモ リ に 格納 し て も どり ま 
す . 


26D5H 25 6 バイ ト 以 内 の ブロ ッ ク 転 送 


アド レス 26D5H 
機能 | 2 56 バ イト 以内 の ブロ ッ ク 転 送 
レジ スタ AFBーDEHL 























解 説 | レジ スタ DE で 指定 する アド レス か ら レ ジス タ H 工 で 指定 する アド 
レス に , レジ スタ B で 指定 する バイ ト 量 の デー タ を ブロ ッ ク 転 送 し ます が , レジ 
スタ B の 内 容 が 0 0 H の 場合 に は 2 5 6 バイ ト を 指定 し た こと に な り ま す . 
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270CH 単 精度 型 実数 の 比較 





アド レス | 270cCH 
機 能 | 単 精度 型 実 数 の 比較 
レジ スタ | AFーーーーHL 




















解 説 | レジ スタ BCDE に 格納 され た 上 単 精度 型 の 実数 を 第 1 パラ メー タ と 
し , フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 上 単 精度 型 の 実数 を 第 2 パラ メ 
ー タ と し て , 両者 の 比較 結果 を アキ ュ ム レー タ に 格納 し , ゼロ ・ フ ラグ (Z) お 
よび キャ リ ・ フ ラグ (CY) に 影響 を 与 を て も どり ます . 
比較 結果 と アキ ュ ム レー タ に 与え る 数 値 の 関係 は 次 の と お り で す . 
第 1 パラ メー タマ < 第 2 パラ メー タ の 場合 , 比較 結果 に 0 1H を 与 を ます. 
第 1 パラ メー ター 第 2 パラ メー タ の 場合 , 比較 結果 に 0 0H を 与え ます , 
第 1 パラ メー タッ 第 2 パラ メー タ の 場合 , 比較 結果 に FFH を 与え ます . 


ーーー compare for gingle preci ら Sion 一 


ORG 0C100H 
C100 214DC1 START: LD HL,PRMPT1 
C103 CD44C1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH j Screen edi モ or 
C109 DA665C JP C,5C66H j jump to system monitor if stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH 3 convert into binary code 
C110 CDB32?7 CALL 27B3H j convert into single precision 
C113 CDBD26 " CALL 26BDH j 
C116 C5 PUSH BC j push facc onto stack 
C117 D5 PUSH DE H 
C118 216AC1 LD ”。 HL,PRMPT2 
C11B CD44C1 CALL DSPMSG 
C11E CD7E1B CALL 1B7ZEH j Screen edi モ or 
C121 23 INC HL 
C122 CDBE2B CALL 2BBEH 』 Conver も in も o binary code 
C125 CDB32?7 CALL 27B3H ) conver into single precision 
C128 D1 ・ POP DE 
C129 C1 POP BC 
C12A CDOC27 CALL 270CH :※compare for single precigion 
C12D 2005 1 JR NZ,NEQUAL 
C12F 2184C1 LD HL , ANS1 j』 x! equal y! 
C132 180B JR DSPLAY 
C134 D23CC1 NEQUAL : JP NC,LESS 
C137 2191C1 LD HL , ANS2 j x! greater than y! 
C13A 1803 JR DSPLAY 
C13C 21A4C1 LESS: LD HL , ANS ふ j x! less than y! 
C13F CD44C1 DSPLAY :CALL DSPMSG j display resul モ 
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C142 18BC 


ロー ーー ーー 


C144 7E 
C145 AZ 
C146 C8 
C147 CD5702 
C14A 23 
C14B 18F ァ 7 


で ー・・・・ < 


C14D 
C151 
C155 
C159 
C15D 


0D0A0A73 
696E676C 
65207072 
65636973 
696F6E20 
C161 6F662078 
C165 21203F20 
C169 00 


JR 


START 


display message Subroutine 


destroy8 : 


SPMSG:LD 


AND 
RET 
CALL 
INC 
JR 


regi=ter a,f,h,1 


A,(HL) 

A 

Z 

0257H H 
HL 

DSPMSG 


display a character 


me38ag@e ar@a 


RMPT1 :DEFB 0DH,0AH,0AH, "single precision of x! 


? 0 


C16A 73626E67 PRMPT2:DEFB "single precision of x! ? 740 


C16E 
C172 
C176 
C17A 
C17E 
C182 
C184 


6C652070 
72656369 
73696F6E 
206F6620 
7921203F 
2000 
78212065 
C188 7175616C 
C18C 20207921 
C190 00 

C191 78212067 
C195 72656174 
C199 65722074 
C19D 68616E20 
C1A1 792100 
C1A4 7821206C AN 
C1A8 65737320 
C1AC 7468616E 
C1BO 20792100 


C1B4 


\GC100 


ingle precision 
ョ ingle precision 
x! less than y! 


single precision 
Bingle precision 
x! equa] ッ y! 


single precision 
ョ single precision 
x! less than y! 
ingle precision 
Bingle precision 
x! equal ッ ! 


single precision 


3 


ANS1 : 


ANS2: 


S3: 


of 
of 


of 
of 


of 
of 


of 
of 


of 


DEFB 


DEFB 


DEFB “ 


END 


"xl equal y!",0 


^x! greater than y!",0 


x! ]1ess than y!",0 


123456 .789 
1234567 .89 


12345678% 
123456788 


7 1.11111 
1.111111 


1.11111 
1.11111000000001 
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2739H 整数 の 比較 


アド レス | 2739H 
機能 | 整数 の 比較 
レジ スタ | AFーーーーー 一 























解 説 | レジ スタ DE に 格納 され た 有 符 号 1 6 ビッ ト の 整数 を 第 1 パラ メー 
タ と し , レジ スタ HL に 格納 され た 有 符 号 16 ビッ ト の 整数 を 第 2 パラ メー タ と 
し て , 両者 の 比較 結果 を アキ ュ ム レー タ に 格納 し . ゼロ ・ フ ラグ (Z) お よび キ 
ャ リ ・ フ ラグ (CY) に 影響 を 与 を て も どり ます . 
比較 結果 と アキ ュ ム レー タ に 与え る 数 値 の 関係 は 次 の と お り で す ., 
第 1 パラ メー タマ 第 2 パラ メー タ の 場合 、 比較 結 果 に 0 1 H を 与え ます . 
第 1 パラ メー ター 第 2 パラ メー タ の 場合 , 比較 結果 に 0 0H を 与え ます . 
第 1 パラ メー タッ 第 2 パラ メー タ の 場合 , 比較 結果 に FFH を 与え ます . 





ーーー compare for integer 一 一 


ORG 0C100H 
C100 214FC1 START: LD HL,PRMPT1 
C103 CD46C1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH ) Screen edi モ or 
C109 DA665C JP C,5C66H j Jump to system moni モ or if stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH j COn ソ er into binary code 
C110 CD7F27 CALL 277FH ? COnV@r in セ to integer 
C113 EDSBA8F0 LD DE ,(OFOA8H ) : tore 1 argumen into reg-de 
C117 DS PUSH DE 
C118 2163C1 LD HL,PRMPT2 
C11B CD46C1 CALL DSPMSG 
C11E CD7E1B CALL 1B7EH j creen edi モ or 
C121 23 INC HL 
C122 CDBE2B CALL 2BBEH : conver into binary code 
C125 CD7F27 CALL 277FH j COn ソ er モ in モ o _ integer 
C128 2AA8F0O LD HL ,(0F0A8H) : Be て 2nd argument into reg-h1 
C12B D1 " POP DE j Bet 1 上 argumen モ into reg-de 
C12C CD3927 | CALL 2739H -#X※compare Tor integer 
C12F 2005 ・ JR NZ,NEQUAL 
C131 2174C1 LD HL , ANS1 j x! equal y! 
C134 180B JR DSPLAY 
C136 D23EC1 NEQUAL : JP NC,LESS 
C139 2180C1 LD HL,ANS2 j x! greater than y! 
C13C 1803 JR DSPLAY 
C13E 2193C1 LESS: LD HL , ANS3 j x! less than y! 
C141 CD46C1 DSPLAY:CALL DSPMSG : display resul モ 
C144 18BA JR START 
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C146 
C14? 
C148 
C149 
C14C 
C14D 


C14F 
C153 
C15? 
C15B 
C1SF 
C163 
C167 
C16B 
C16F 
C173 
C174 
C178 
C17C 
C180 
C184 
C188 
C18C 
C190 
C193 
C197 
C19B 
C19F 


C1A3 


ロー ーー < 


YE 
AZ 
C8 
CD5702 


SPMSG: 


18F?7 


で 


0D0A0A69 
6E74656? 
6572206F 
66207825 
203F2000 


LD 
AND 
RET 
CALL 
INC 
JR 


display message Subroutine 


destroys : register a。〒。h,1 


A,(HL) 

A 

Z 

0257H j display a character 
HL 

DSPMSG 


me ら ヨ 896 8PeGa 


RMPT1 :DEFB 0DH,0AH,0AH, "integer of x% ? ^。0 


626E7465 PRMPT2:DEFB "integer of y% ? 0 


67657220 
6F662079 
25203F 20 

00 

78252065 ANS1: 
7175616C 
20792500 
78252067 ANS2: 
72656174 
65722074 
68616E20 
792500 
7825206C ANS3: 
65737320 
7468616E 
20792500 


\G6C100 


integer of x 
integer of y 
x 々 greater than ッ を 


integer of x 


5000 


を の 
integer of y% ? 5000, 
x を equal y を 


integer of x を 
integer of ッ % 


5000 
5000 . 


ざ ざ 


x を equal ッ 


integer of x 
integer of ッ を ? 
x を greater て han ッ を 


? &H7FF 
? &H800 


integer of x ? 40000 
0verf1ou 


0k 


DEFB 


DEFB 


DEFB 


END 


4 


5 


居 
0 


^x% equal y%",0 


^x を greater than y%",0 


^x を less than y%^,0 
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2778H 倍 精 度 型 実数 の 比較 


アド レス | 2778 有 H 
機 能 | 倍 精度 型 実 数 の 比較 
レジ スタ | AFーーDEー 一 











| 解説 | フロ ー テ ィング ・ ア キュ ムレ ー タ (F0A4H-F0ABH 番 地 ) 
に 格納 され た 倍 精度 型 の 実数 を 第 1 パラ メー タ と し , サブ プ ・ フ ロー ティ ング ・ ア 
キュ ムレ ー タ (FOAEH-FOB5H 番 地 ) に 格納 され た 倍 精 度 型 の 実数 を 第 
2 パラ メー タ と し て , 両者 の 比較 結果 を アキ ュ ム レー タ に 格納 し , ゼロ ・ フ ラグ 
(2Z) お よび キャ リ ・ フ ラグ (CY) に 影響 を 与え を て も どり ます . 
比較 結果 と アキ ュ ム レー タ に 与え る 数 値 の 関係 は 次 の と お り で す . 

第 1 パラ メー タマ 第 2 パラ メー タ の 場合 , 比較 結果 に 0 1H を 与え ます . 

第 1 パラ メー ター 第 2 パラ メー タ の 場合 , 比較 結果 に 0 0H を 与え ます . 

第 1 パラ メー タツ 第 2 パラ メー タ の 場合 , 比較 結果 に FFH を 与え を ます. 


ーーー compare for double preci ら ion 一 


ORG 0C100H 
H 
C100 2160C1 START: LD HL ,PRMPT1 
C103 CDEDS2 CALL 52EDH j display message 
C106 CD7E1B CALL 1B7EH ) screen editor 
C109 DA665C JP C,S5C66H j ystem monitor if atop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH 3 convert into binary code 
C110 CDDF27 CALL 27DFH ) convert into double precision 
H 
C113 21A4F0O LD HL,OF0A4H 日 
C116 11C9C1 LD DE , BUFFER ) = モ tore firs モ argumen セ て into buffer 
C119 010800 LD BC,8 H 
C11C EDBO LDIR 
5 
C11E 217DC1 LD HL , PRMPT2 
C121 CDED52 CALL 52EDH j display messaoe 
C124 CD7E1B CALL 1B7EH j Screen edi モ or 
C127 DA665C JP C,SC66H 3 ystem monitor if stop key 
C12A 23 INC HL 
C12B CDBE2B CALL 2BBEH 3 Convert into binary code 
C12E CDDF27 CALL 27DFH 3』 convert into double precision 
H 
C131 21A4F0O LD HL ,0F0A4H H 
C134 11AEFO LD DE ,0FOAEH : se second arCgumen モ into =ub-facc 
C137 010800 LD BC,8 日 
C13A EDBO LDIR 
H 
C13C 21C9C1 LD HL ,BUFFER H 
C13F 11A4FO LD DE ,0F0A4H 』 Se 千 a 七 argument in セ o facc 
C142 010800 LD BC,8 日 
C145 EDBO LDIR 
C147 CD7827 CALL 2778H 3※compare for double precision 
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C14A 
C14C 
C14F 


C151 
C153 
C156 


C158 
C15B 
C1SE 


C160 
C164 
C168 
C16C 
C170 
C174 
C178 
C17C 
C17D 
C181 
C185 
C189 
C18D 
C191 
C195 
C197 
C19B 
C19F 
C1A3 
C1A4 
C1A8 
C1AC 
C1B0 
C1B4 
C1B8 
C1BC 
C1C0 
C1C4 
C1C8 


C1C9 


2005 
2197C1 
180A 


3005 
21A4C1 
1803 


21B8C1 
CDED52 
18A0 


0D0A0A64 
6F75626C 
65207072 
65636973 
696F6E20 
SF662078 
23203F20 
00 
646F7562 
6C652070 
72656369 
73696F6E 
206F6620 
7923203F 
2000 
78232065 
7175616C 
20792320 
00 
7823206? 
72656174 
65722074 
68616E20 
79232000 
7823206C 
65737320 
7468616E 
20792320 
00 


%GC100 


double precision of 
double precision of 


JR NZ,NEQUAL 
LD HL,ANS1 
JR DSPLAY 

NEQUALIJR 。NC,LESS 
LD HL,ANS2 
JR DSPLAY 

LESS: LD HL,ANS3 

DSPLAY:CALL 52EDH 
JR START 

1 me888gG 8 ビ @Ga 

H 

P 


x 半 equal y 草 


x 六 greater て han y 件 


x 1ess than y ッ 件 


disp]ay ansuer 


RMPT1 :DEFB 0DH,0AH,0AH, double precision of xt ? 7。0 


PRMPT2:DEFB “double precision of y# ? 0 


ANS1: DEFB “xt equal y## 


ANS2: DEFB “ 


ANS3i DEFB 


の ーー < 


UFFERiEND 


x 守 ]ess than y サ サ 


double precision of 
double precision of 


x 性 greater て han y 性 


double precision of x 攻 ? 


3 


^x 1ess than y 尾 


x 社 7 1。11111111111111 
y 衝 の 1。111111111111111 


x せ ? &h7f プ ff 下 
ッ 全 ? &h8000 


x greater than y ッ ff 40 


0 


buffer for the first argumen も 
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277FH 整数 型 へ の 変換 





アド レス | 277FH 
機能 | 整数 型 へ の 変換 


レジ スタ 


AFBCDEHL 


解説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 数 値 デ ー タ を , 整数 


型 に 変換 し , レジ スタ HL に も 格納 し て も どり ます . 

フロ ー テ ィング ・ ア キュ ムレ ー タ が すでに 整数 型 で あっ た 場合 に は 何 も せ ず に 
も どり ます が , 文字 型 (EF45H 番 地 の 内 容 が 0 3 H) で あっ た 場合 に は “T 
type mismatch" エ ラー が 発生 し , また 数 値 デ ー タ が 整数 型 と し て 表現 で きる 範 
囲 内 (-32768 一 32767) を 越え る 場合 に は “Overflow" エ ラー が 発生 
する た め , イン タプ ブリ タ の 制御 下 に 入り ます . 


ーーー ConVer モ into integer ーー 一 


ORG 0C100H 

C100 212CC1 START: LD HL,PROMPT 
C103 CD23C1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH j screen edi モ or 
C109 DA665C JP C,5C66H ) jump to system monitor if stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH 3 Conver into binary code 
C110 CD7F27 " CALL 277FH 3 ※COn ソ er facc into integer 
C113 CD222D CALL 2D22H 3』 convert facc into character code 
C116 E5 PUSH HL 
C117 213BC1 LD HL,ANSUER 
C11A CD23C1 CALL DSPMSG 
C11D E1 POP HL 
C11E CD23C1 5 CALL DSPMSG j display resul モ 
C121 18DD JR START 

: di sp 1 ay mea ら ag@e ら り DCOu モ ine 
C123 7E DSPMSG:LD A,(HL) 
C124 AZ AND A 
C125 C8 RET Z 
C126 CD5702 CALL 0257H j display a character 
C129 23 INC HL 
C12A 18F7 JR DSPNMSG 

: me らら ag9e aea 
C12C 0D0A0A61 PROMPT:DEFB 0DH,0AH,0AH,"a number ? 0 
C130 206E756D 
C134 62657220 
C138 3F2000 
C13B 616E2069 ANSMER:DEFB "an integer : “,0 
C13F 6E74656? 
C143 6572203A 
C147 2000 
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C149 END 


\GC100 


a number ? 5 


an integer 5 
8a number ? 5.4 
an integer : 5 


8a number ? 5.5 
an integer : 


8a number ? -5.4 
an integer : -6 


8 number ? -5.5 
an integer : -6 


8 number ? 40000 


Overf]ou 
0k 
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278CH 単 精度 実数 型 か ら 整 数 型 へ の 変換 





アド レス | 278CH 
機能 | 単 精度 実数 型 か ら 整 数 型 へ の 変換 


レジ スタ | AFBCDEHL 


解説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 単 精度 実数 型 の 数 値 
デー タ を , 整数 型 に 変換 し , レジ スタ HH 上 に も 格納 し て も どり ます . 

た だ し , フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 数 値 デ ー タ が 整数 型 と 
し て 表現 で きる 範囲 内 (32768-32767) を 越え る 場合 に は “Overflow" 
エラ ー が 発生 し , イン タプ リタ の 制御 下 に 入り ます . 




















ーーー conver single precision number into integer ーー 一 


ORG 0C100H 
C100 213BC1 START: LD HL,PROMPT 
C103 CD32C1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH ) creen edi モ or 
C109 DA665C JP C,S5C66H j jump to system monitor i 和 † stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH j Conver セ into binary code 
C110 3A4S5EF LD A,(OEF 45H ) H 
C113 FEO4 CP 04H ) error i 寺 not single precision 
C115 2013 JR NZ,ERROR H 
C117 CD8C27 ・ CALL 278CH j※single precision into integer 
C11A CD222D CALL 2D22H 】 CoOnver セ facc into character code 
C11D E5 PUSH HL 
C11E 2159C1 LD HL , ANSUER 
C121 CD32C1 CALL DSPMSG 
C124 E1 POP HL 
C125 CD32C1 CALL DSPMSG j display an integer 
C128 18D6 JR START 
C12A 2164C1 ERROR: LD HL , MSGERR 
C12D CD32C1 CALL DSPMSG 
C130 18CE JR START 


disp]l ay message SubCoutine 


destroys= : register a ヵ fh,1 


C132 7E ISPMSG:iLD  。A,(HL) 

C133 AZ AND A 

C134 C8 RET Z 

C135 CD5702 CALL 0257H j display a character 
C138 23 INC HL 

C139 18F ァ 7 JR DSPMSG 


me らら 89G 8 じ @ ら 8 


で ー … 


C13B 0D0A0A73 
C13F 696E676C 


ROMPT:DEFB 0DH,0AH,0AH, "single precision number ? "0 


154 


C143 65207072 

C147 65636973 

C14B 6926F6E20 

C14F 6E756D62 

C153 6572203F 

C157 2000 

C159 626E7465 ANSUER : DEF 
C15D 67657220 

C161 3A2000 

C164 6E6F7420 MSGERR : DEF 
C168 73696E67 

C16C 6C652070 

C170 72656369 

C174 73696F6E 

C178 20212107 

C17C 00 


C17D END 


*GC100 


ingle precision number 
not single precision !! 


Single precision number 
integer : 3 


single precision number 
not single precision !! 


Single precision number 
not single precision !! 


Bingle precision number 
integer : -5000 


ョ ingle precision number 
not single precision !! 


Single precision number 
Overf]ou 


0k 


B “integer : 「,0 


B "not single precision 


? -5000 


? -5000! 


? -5000# 


? 50000 


7 07H,0 
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279CH 整数 の 格納 











解 説 | レジ スタ HL に 格納 され た 有 符 号 1 6 ビット の 整数 を , 整数 型 の フ 
ロー ティ ング ・ ア キュ ムレ ー タ (F0A8H-FOA9 HH 番地) に 格納 し ,EF 
4 5 H 番 地 に も 整数 型 を 示す 0 2 H を 入れ て も どり ます . 


サン プル 





) ーーー numbers ぃ ith a be ーー 
ORG 0C100H 
C100 3EOO ・ LD Aa0 
C102 F5 LOOP: PUSH AF 
C103 eF 6 LD L,A 
C104 CD2CC1 CALL DSPACC 
C107 2600 LD  H,0 
C109 CD9C2?7 CALL 279CH j※=tore register hl into facc 
C10C 3E80 " LD  A,8OH ) 
C10E 0605 LD B,5 j aPPOin モ forma セ 
C110 OE00 LD C,0 H 
C112 CD232D " CALL 2D23H j conver セ て into character code 
C115 CD43C1 CALL DSPMSG j display the integer decimal 
C118 3E20 LO Ar 
C11A CD5702 CALL 0257H 
C11D CD5702 CALL 0257H 
C120 CD5702 CALL 0257H 
C123 F1 POP AF 
C124 3C INC A 
C125 FE00 CP 00H 
C127 20D ヶ JR NZ ,LOOP 
C129 C3665C " JP 5C66H : jump to ytem moni モ or 
) display accumul ator hexa decimal 5ubroutine 
: destroy= : regiSter a ヵ 〒,b 
C12C 47 DSPACCiLD  B,A 
C12D OF RRCA 
C12E 0F RRCA 
C12F OF RRCA 
C130 OF RRCA 
C131 CD35C1 CALL HALF 
C134 78 LD AB 
C135 E6OF HALF: AND OFH 
C137 FE0A CP 10 
C139 3802 JR C,NUMBER 
C13B C607 ADD  A,7 
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C13D C630 
C13F CD5702 
C142 C9 
C143 7E 
C144 AZ 
C145 C8 

C146 CD5702 
C149 23 
C14A 18F7 
C14C 

\GC100 

00 0 01 
08 8 09 
10 16 11 
18 24 19 
20 32 21 
28 40 29 
30 48 31 
38 56 39 
40 64 41 
48 72 49 
50 80 51 
5S8 88 59 
60 96 6 る 1 
68 104 69 
70 112 71 
78 120 79 
80 128 81 
88 136 89 
20 144 921 
28 152 929 
AO 160 A1 
AB8 168  A9 
BO 176  B1 
BB 184  B2 
CO 122  C1 
C8 200 C9 
DO 208  D1 
D8 216 D92 
E0 224  E1 
E8 232  E2 
F0 240 F1 
F8 248  F9 


NUMBER:ADD  A,30H 


: display a character 


12 
20 
28 
36 
44 
52 
60 
68 
76 
84 
22 
100 
108 
116 
124 
132 
140 
148 
156 
164 
172 
180 
188 
196 
204 
212 
220 
228 
236 
244 


CALL 0257H 
RET 
H 
: display me=Sage SUbCou セ ine 
5 
H destroys : register afT。h,1 
DSPMSG:LD A,(HL) 
AND A 
RET Z 
CALL 0257H 
INC HL 
JR DSPMSG 
H 
END 
1 02 2 03 3 04 
2 0A 10 0B 11 0C 
1? 12 18 13 19 14 
25 1A 26 1B 27 1C 
33 22 34 23 35 24 
41 2A 。 42 2B 43 2C 
49 32 50 33 51 34 
5?7 3A 58 3B 592 3C 
65 42 66 43 67 44 
73 。 4A 74 4B 75 4C 
81 52 82 53 83 54 
89 SA 90 SB 91 SC 
27 62 28 63 29 64 
105 6A 106 6B 107 6C 
113 72 114 73 4145 74 
121 7A 122 7B 123 7C 
129 82 130 83 131 84 
137 8A 138 SB 139 8C 
145 92 146 93 147 24 
153 2A 154 2B 155 9C 
161 A2 162 A3 163 A4 
169? AA 170 AB 171 AC 
17? B2 178 B3 179 B4 
185 BA 186 BB 187 BC 
193  C2 194 C3 195 C4 
201 CA 202 CB 203 CC 
209  D2 210 D3 211 D4 
217 DA 218 DB 219 DC 
225 E2 226 E3 22?7 E4 
233 。 EA 234 EB 235 EC 
241 F2 242 F3 243 F4 
249  FA 250 FB 251 FC 


252 


05 
0D 
15 
1D 
25 
2D 
35 
3D 
45 
4D 
55 
SD 
65 
6D 
75 
7D 
85 
8D 
25 
2D 
A5 
AD 
B5 
BD 
C5 
CD 
DS 
DD 
ES 
ED 
F5 
FD 


13 
21 
29 
37 
45 
53 
61 
69 
77 
85 
23 
101 
109 
117 
125 
133 
141 
149 
157 
165 
173 
181 
189 
197 
205 
213 
221 
229 
237 
245 
253 


06 
OE 
16 
1E 
26 
2E 
36 
3E 
46 
4E 
56 
SE 
66 
6E 
76 
7E 
86 
8E 
26 
2E 
A6 
AE 
B6 
BE 
C6 
CE 
De 
DE 
E6 
EE 


FE 


display a character 


14 
22 
30 
38 
46 
54 
62 
70 
78 
86 
24 
102 
110 
118 
126 
134 
142 
150 
158 
166 
174 
182 
120 
198 
206 
214 
222 
230 
238 
246 
254 


07 
OF 
17 
1F 
27 
2F 
37 
3F 
47 
4F 
57 
SF 
6? 
6F 
77 
7F 
87 
BF 
97 
9F 
A7 
AF 
B7 
BF 
C7 
CF 
D7 
DF 
E7 
EF 


FF 


15 
23 
31 
39 
27 
55 
63 
71 
7? 
87 
25 
103 
111 
119 
127 
135 
143 
151 
159 
167 
175 
183 
191 
199 
207 
215 
223 
231 
232 
247 
255 
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27A1H フロ ー テ ィング ・ ア キュ ムレ ー タ の 型 指定 


アド レス [| 27A1H 
機 能 | フロ ー テ ィング ・ ア キュ ムレ ー タ の 型 指定 


[レジ ヌ ネタ | ーーーーー 


[解説 | アキ ュ ム レー タ に 格納 され た 数 値 を 。 フロ ー テ ィング ・ ア キュ ムレ 
ー タ の 型 と し て EF 4 5 H 番 地 に 格納 し ます . 

EA45HH 番 地 に 格納 する 数 値 , フロ ー テ ィング ・ ア キュ ムレ ー タ の 型 の 関 
係 は つぎ の と お り で す . 
EA45H 番 地 に 与え る 数 値 が 0 2 H の 場合 , 整数 型 を 示し ます . 
EA45H 番 地 に 与え る 数 値 が 0 3 H の 場合 , 文字 型 を 示し ます . 
EA45H 番 地 に 与え る 数 値 が 0 4 H の 場合 , 単 精度 実数 型 を 示し ます . 
EA45H 番 地 に 与え る 数 値 が 0 8 H の 場合 , 倍 精度 実数 型 を 示し ます . 





) ーーー conver モ intermediate code into the number 一 
H 
ORG 0C100H 

C100 1171C1 START: LD DE,PRMPT1 
C103 CD68C1 CALL DSPMSG 

H 
C106 CD7S50F CALL OF75H ? input a character from keyboard 
C109 CDS702 CALL 0257H : echo-back a character 
C10C FE03 CP 03H 
C10E CA665C JP Z,5C66H ?j Jump to system monitor if stop key 
C111 D630 SUB "0" j convert into binary code 
C113 CDA127 CALL 27A1H j※se 七 type of 千 ]oa モ ing accCumul a モ or 
C116 47 LD  B,A j et loop counter for inpu 

H 
C117 21A8F0 LD HL,0F0A8H ) top address for single precision 
C11A FEOB CcP 8 
C11C 2003 JR NZ,NEXTIN 
C11E 21A4F0O LD HL,0F0A4H j top address for double precision 
C121 118AC1 NEXTIN:LD DE , PRMPT2 
C124 CD68C1 CALL DSPMSG 
C127 CD750F 1 CALL OF7SH j input a character from keyboard 
C12A CD5702 CALL 0257H j echo-back a characer 
C12D CDSCC1 CALL HEXBIN j convert hexa code into binary 
C130 4F LD C,A 
C131 CD750F CALL OF75H }) input a character from keyboard 
C134 CDS702 CALL 0257H : echo-back a character 
C137? FEOD CP 0DH 
C139 280D JR Z,CRCODE 
C13B CDSCC1 CALL HEXBIN 3 conver モ hexa code into binary 
C13E CB01 5 RLC C 
C140 CBO1 RLC C 
C142 CBO1 RLC C 
C144 CBO1 RLC C 
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C146 
C147 


C148 
C149 
C14A 


C14C 
C14F 


C150 
C153 


C156 
C15? 


C15A 


C15C 
C1SE 
C160 
C162 
C164 


C165 
C167 


C168 
C169 
C16A 
C16B 
C16E 
C16F 


C171 
C175 
C179 
C17D 
C181 
C185 
C189 
C18A 
C18E 
C192 
C196 
C19A 
C19E 
C1A2 
C1A6 
C1AA 
C1AE 
C1B2 
C1B6 


C1BA 


81 
4F 


71 
23 
10D5 


CD222D 
ES 


11A2C1 
CD68C1 


D1 
CD68C1 


18A4 


FE3A 
3805 
E60F 
C609 
C ヶ 


E60F 
C9 


1A 

AZ 

C8 
CDS702 
13 
18F? 


0D0A0A74 
79706520 
6F662074 
6865206E 
756D6265 
72203F 20 
00 

0D0A2020 
20202020 
2020206F 
6E206D65 
6D6F7279 
203F2000 
0D0A2020 
20202020 
20207468 
65206E75 
6D626572 
203A2000 


ADD 
LD 

CRCODE:LD 
TNC 
DJNZ 


CALL 
PUSH 


LD 
CALL 


POP 
CALL 


JR 


A,C 
C,A 


(HL),C 
HL 
NEXTIN 


2D22H 
HL 


DE , ANSMER 
DSPMSG 


DE 
DSPMSG 


START 


conver 七 in セ to character code 
push top address onto stack 


pop top address from stack 
display the number 


convert hexa code into binary code subroutine 


H 

H 

H 

日 1npu セ = 
H Ou モ Pu て ヨ 
H detroy 
H 

HI 


EXBIN:CP 
JR 
AND 
ADD 
RET 


HEXBI1:AND 
RET 


display message Subroutine 


H 
則 
H 
H 
H destroy 
H 
Di 


SPMSG:LD 
AND 
RET 
CALL 
INC 
JR 


me ヨ 8a9e 8 


で ーー 


PRMPT2:DEFB 


ANSUER :DEFB 


END 


character code in accumul ator 


き * 


2 生 
C,HEXBI1 
OFH 

A4 の 


0FH 


: binar- ツ こら in aCCumu1 a て Or 
: regis5ter a, 下 


= : register a,F。d,e 


A,(DE ) 
A 
Z 
0257H 
DE 
DSPMSG 


で ら 8 


0DH, 0AH, 


0DH, 0AH, 


RMPT1:DEFB 0DH,0AH,0AH, “type of the number ? ^,0 


on memory ? ^,0 


^,0 


the number 
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\GC100 


type 


type 


上 ype 


type 


上 ype 


type 


type 


of 


of 


of 


of 


of 


of 


of 


the 
on 
on 
the 


the 
on 
on 
the 


the 
on 
on 
the 


て the 
on 
on 

the 


the 
on 
on 
on 
on 
the 


the 
on 
on 
on 
on 
on 
on 
on 
on 
the 


the 
on 
on 
the 


type of the 
は 
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number 
memory 
memory 
number 


number 
memory 
memory 
number 


number 
memory 
memory 
number 


number 
memory 
memory 
number 


number 
memory 
memory 
memory 
memory 
number 


number 
memory 
memory 
memory 
memory 
memory 
memory 
memory 
memory 
number 


number 
memory 
memory 
number 


number 


… ざ つつ … つつ や … つつ や 


… つ つつ 


… つ や や つつ 


… や や や や や や つや や 


… つ つつ 


や 


〇 の い 
〇 の の 〇 


2 

01 

00 
1 


2 

50 

00 
80 


2 
ff 
ff 
-1 


4 

11 

11 

11 

11 
2.18272E-34 


8 
00 
00 
00 
00 
00 
00 
00 
84 
8 


2 

00 

80 
ー-32768 








F ACC の 構成 


BASTIC イ ンタ ブリタ は , 浮動 小数 点 の 演算 機能 が 用 意 さ きれ て いな い PD 
7 80 (Z8 0 コン パチ ブル ) で 浮動 小数 点 の 演算 を 実行 する た め , フロ ー テ ィ 


ング ・ ア キュ ムレ ー タ (FACC= Floating Point Accumulator) 


と 呼ぶ 8 


バイ ト の 仮想 レジ スタ を メモ リ 上 に 用 意 し . すべ て ソフ トウ ェ ア に よっ て 浮動 小 
数 点 の 演算 処理 を 実現 し て いま す . 

この フロ ー テ ィング ・ ア キュ ムレ ー タ は , FO0A4H-FOABH 番 地 に 置か 
れ , EF45H 番 地 に は デー タ の 型 を 表す 数 値 が 与え られ ます . 


@ 整 数 型 


@ 単 精度 実数 型 


@ 倍 精度 実数 型 
















































































EF45H 番 地 0 2 H 
F0OA8H 番 地 下位 8 ビッ ト 
F0A9H 番 地 上 位 8 ビット 
EF45H 番 地 0 4 H 
F0OA8H 番 地 | 仮数 部 下位 8 ビッ ト 
F0OA9H 番 地 | 仮数 部 中 位 8 ビ ッ ト 
F0AAH 番 地 | 仮数 部 上 位 8 き ビット 
F 0ABH 番 地 指数 部 8 ビッ ト 
EF45 昌 番地 0 8H 
F0A4H 番 地 | 仮数 部 最 下 位 8 ビ ッ ト 
F0OA5H 番 地 
F0A6H 番 地 

F0A7H 番 地 

F0A8H 番 地 

F0OA9H 番 地 
F0AAH 番 地 | 仮数 部 最上 位 8 ビ ッ ト 
F0ABH 番 地 指数 部 8 ビッ ト 
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27B3H 単 精度 実数 型 へ の 変換 





アド レス | 27B3H 


機能 | 単 精度 実数 型 へ の 変換 
レジ スタ | AFBCDEHL 














[解説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 数 値 デ ー タ を , 単 精 
度 実数 型 に 変換 し て も どり ます . 

フロ ー テ ィング ・ ア キュ ムレ ー タ が すでに 単 精度 実数 型 で あっ た 場合 に は 何 も 
せ ず に も どり ます が , 文字 型 (EF4 5H 番 地 の 内 容 が 0 3 H) で あっ た 場合 に 
は , “Type mismatch" エラ ー が 発生 し . イン タフ リタ の 制御 下 に 入り ます . 


ーーー convert into single preci ら ion 一 


ORG 0C100H 

C100 212CC1 START: LD HL,PROMPT 
C103 CD23C1 CALL DSPMSG 
C106 CD7E1B CALL 1B7ZEH ) screen edi モ or 
C109 DA665C JP C,5C66H j jump to system monitor if atop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH 】 convert into binary code 
C110 CDB327 " CALL 27B3H ? %Conver facc into single precision 
C113 CD222D CALL 2D22H ) convert facc in セ to character code 
C116 E5 PUSH HL 
C117 213BC1 LD HL,ANSMER 
C11A CD23C1 CALL DSPMSG 
C11D E1 POP HL 
C11E CD23C1 " CALL DSPMSG j display single precision number 
C121 18DD JR START 

1 display message subroutine 

H 

H destroys : reoister af,h,1 
C123 7E DSPMSG:LD 。A,〈HL) 
C124 AZ AND A 
C125 C8 RET Z 
C126 CD5702 CALL 0257H j digplay a character 
C129 23 INC HL 
C12A 18F7 JR DSPMSG 


me らら 896 8 じ @ ら 8 


で ー … 


C12C 0DOA0A61 
C130 206E756D 
C134 62657220 
C138 3F2000 
C13B 61207369 ANSMER:DEFB “a single precision number : /,0 
C13F 6E676C65 

C143 20707265 

C147 63697369 

C14B 6F6E206E 

C14F 756D6265 

C153 ?2203A20 


ROMPT:DEFB 0DH,0AH,0AH,。"a number ? 0 
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C157 00 
C158 


※GC100 
a number 
8 Single 


a number 
a single 


8a number 
a single 


8 number 
a single 


a number 
a single 


8a number 
a single 


a number 


END 
人 で 
precision number : 1 
? 1.00001 
precision number : 1.00001 


? 1.0000000001 
precision number : 1 


? 3333333333333333333333333333 
Precision number : 3.33333E+27 


? 0 

precision number : 0 
? 0.4 

precision number : .4 
? 
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27BDH 倍 精 度 実数 型 か ら 単 精度 実数 型 へ の 変換 





アド レス 








解 





C100 
C103 
C106 
C109 
C10C 
C10D 


C110 
C113 
C115 


C117 
C11A 


C11D 
C11E 
C121 
C124 


C125 
C128 


C12A 
C120 
C130 


C132 
C133 
C134 
C135 
C138 
C139 


C13B 
C13F 
C143 
C147 
C14B 
C14F 
C153 
C157 
C159 
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機能 





レジ スタ 


デー タ を 。, 


サン プル 











213BC1 
CD32C1 
CD7E1B 
DA665C 
23 

CDBE2B 


3A45EF 
FE08 
2013 


CDBD27 
CD222D 


ES 
2159C1 
CD32C1 
E1 


CD32C1 
18D6 


2174C1 
CD32C1 
18CE 


7E 
AZ 
C8 
CDS702 


18F?7 


000A0A64 
6F75626C 
65207072 
65636973 
696F6E20 
6E756D62 
6572203F 
2000 

73696E67 


27 BDH 
倍 精度 実数 型 か ら 単 精度 実数 型 へ の 変換 
AFBCDEHL 


ORG 


H 

START: LD 
CALL 
CALL 
JP 
INC 
CALL 


LD 
CP 
JR 


CALL 
CALL 


PUSH 
LD 
CALL 
POP 


CALL 
JR 


ERROR: LD 
CALL 
JR 


ISPMSG :LD 
AND 
RET 
CALL 
INC 
JR 


で … 


ROMPT:DEFB 


ANSMER : DEFB 


説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 倍 精 度 実数 型 の 数 値 
単 精 度 実数 型 に 変換 し て も どり ます . 


ーーー convert double precision into single preci5Sion ーー 


0C100H 


HL , PROMPT 
DSPMSG 
1B7EH 
C,S5C66H 
HL 

2BBEH 


screen editor 
jump to system monitor i 千 gtop key 


conver モ into binary code 


A,(OEF45H ) 
08H 
NZ ,ERROR 


error if not double precision 


27BDH jXdouble into single precision 
2D22H : convert facc into character code 


HL 

HL , ANSMER 
DSPMSG 

HL 


DSPMSG ) display single precision number 
START 


HL , MSGERR 
DSPMSG 
START 


display mes5age Subrouine 


destroys : regis モ er a ヵ 千 ,h,1 


Az(HL) 

A 

Z 

0257H ) display a character 
HL 

DSPMSG 


me らら 89@ 8 じ @ ら 8 


0DH,0AH,0AH, "doub1e precision number ? ",0 


single precision number : ",0 


C15D 6C652070 
C161 72656369 
C165 736926FGE 
C169 206E756D 
C16D 62657220 
C171 3A2000 


C174 6E6F7420 MSGERR:DEFB "not double precision !!"。07H,0 


C178 646F7562 
C17C 6C652070 
C180 72656369 
C184 736926FeE 
C188 20212107 
C18C 00 


C18D END 


\GC100 
double precision number 
not double precision !! 


double precision number 
single precision number 


double precision number 
ingle precision number 


double precision number 
not double precision !! 


double precision number 
not double precision !! 


double precision number 
single precision number 


double precision number 


し 


? 33333 


ざ 


3333333333 
3・33333E+09 


? 333333333333333333333333333 
: 3.33333E+26 


? 5% 


? 5! 


? 5 
5 湯 
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27D0OH 整数 型 か ら 単 精度 実数 型 へ の 変換 





機 





解 


アド レス | 27D0H 


能 | 整数 型 か ら 単 精度 実数 型 へ の 変換 


レジ スタ | AFBCDEHL 


説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 整数 型 の 数 値 デ ー タ 





を , 単 精度 実数 型 に 変換 し て も どり ます . 


サン プル 


C100 
C103 
C106 
C109 
C10C 
C10D 


C110 
C113 
C115 


C117 
C11A 


C11D 
C11E 
C121 
C124 


C125 
C128 


C12A 
C12D 
C130 


C132 
C133 
C134 
C135 
C138 
C139 


C13B 
C13F 
C143 
C147 
C149 
C14D 
C151 
C155 
C159 
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ーーー convert integer into 5ingle Preci ら Sion 一 


ORG 0C100H 

213BC1 START: LD HL,PROMPT 
CD32C1 CALL DSPMSG 
CD7E1B CALL 1B7EH j Screen edi モ or 
DA665C JP C,S5C66H ) jump to system monitor if stop key 
23 INC HL 
CDBE2B CALL 2BBEH ) conver into binary code 
3A45EF LD 。A,(OEF45H) 1 
FE02 CP 02H ) error if no integer 
2013 JR NZ,ERROR H 

H 
CDD02?7 CALL 27DOH j%※integer into single precision 
CD222D CALL 2D22H 』 convert facc into character code 
E5 PUSH HL 
2149C1 LD HL , ANSMER 
CD32C1 CALL DSPMSG 
E1 POP HL 
CD32C1 ( CALL DSPMSG j display single precision number 
18D6 JR START 
2164C1 ERROR: LD HL , MSGERR 
CD32C1 CALL DSPMSG 
18CE JR START 

) displ ay mes5age SubCouine 

: destroy5 : regis モ er a ヵ 下 ,h,1 
7E DSPMSGiLD Aa,HL) 
A7 AND A 
C8 RET Z 
CD5702 CALL 0257H : display a characer 
23 INC HL 
18F?7 JR DSPMSG 

) me らら age 8aC@a 
0D0A0A69 PROMPT :DEFB 0DH,0AH,0AH," integer ? "0 
6E746567 
6572203F 
2000 . 
ィ 3696E67 ANSMER:DEFB "single precision number : ヵ 0 
6C652070 
ィ 2656369 
73696F6E 
206E756D 


C15D 62657220 
C161 3A2000 


C164 6E6F7420 MSGERR :DEFB 


C168 696E7465 
C16C 67657220 
C170 21210700 


C174 


%GC100 
integer ? 0 
ingle precision 


integer ? 1 
single precision 


integer ? 1 析 
not integer !! 


integer ? 1.5 
not integer !! 


integer ? -5000 
single precision 


integer ? &hFff 和 ff 
gingle precision 


integer 7 


END 


number 


number 


number 


number 


"not integer !!7。07H,0 


~-5000 
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27DFH 倍 精 度 実数 型 へ の 変換 





アド レス | 27DFH 
機 能 | 倍 精 度 実数 型 へ の 変換 
レジ スタ | AFBCDEHL 











[解説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 数 値 デ ー タ を , 倍 精 
度 実数 型 に 変換 し て も どり ます . 

フロ ー テ ィング ・ ア キュ ムレ ー タ が すでに 倍 精 度 実 数 型 で あっ た 場合 に は 何 も 
せ ず に も どり ます が , 文字 型 (EF45H 番 地 の 内 容 が 0 3 H) で あっ た 場合 に 
は , “Type mismatch" エラ ー が 発生 し イン タプ リタ の 制御 下 に 入り ます . 


ーーー conver into double preci ら ion 一 


ORG 0C100H 
C100 212CC1 START: LD HL,PROMPT 
C103 CD23C1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH ) screen edi セ or 
C109 DA665C JP C,5C66H ) jump to system monitor if stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH ?: convert into binary code 
C110 CDDF2?7 " CALL 27DFH j※convert facc into double precision 
C113 CD222D CALL 2D22H j conver モ facc into character code 
C116 E5 ・ PUSH HL 
C117 213BC1 LD HL,ANSMER 
C11A CD23C1 CALL DSPMSG 
C11D E1 POP HL 
C11E CD23C1 CALL DSPMSG ) display double precision number 
C121 18DD JR START 


display mes5age SubCou モ ine 


destroys : register a, げ 。h,1 


ロー ーー 


C123 7E SPMSGiLD  A,(HL) 

C124 AZ AND A 

C125 C8 RET Z 

C126 CD5702 CALL 0257H ) display a characer 
C129 23 INC HL 

C12A 18F?7 JR DSPMSG 


me=8896 8 ビ @8 


で ーー 


C12C 0DOA0A61 
C130 206E756D 
C134 62657220 
C138 3F2000 
C13B 6120646F ANSUER:DEFB "a double precision number : "0 
C13F 75626C65 

C143 20707265 

C147 63697362 

C14B 6F6E206E 

C14F 756D6265 


ROMPT :DEFB 0DH,0AH,0AH,"a number ? “0 
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C153 72203A20 


C157 00 
C158 


\GC100 
8 number 
a double 


8a number 
a double 


a number 
a double 


8 number 
a double 


8 number 
a double 


8 number 
a double 


8 number 


END 
? 1 
precision number : 1 
? 100000000000 
precision number : 100000000000 
? 100000000000000000000000000000000 
Precision number : 1D+32 
? 1 を 
Precision number : 1 
? 11 
precision number : 1 
? 1 欄 
precision number : 1 
の 
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27E9H 単 精度 実数 型 か ら 倍 精度 実数 型 へ の 変換 





機 








C100 
C103 
C106 
C109 
C10C 
C10D 


C110 
C113 
C115 


C117 
C11A 


C11D 
C11E 
C121 
C124 


C125 
C128 


C12A 
C12D 
C130 


C132 
C133 
C134 
C135 
C138 
C139 


C13B 
C13F 
C143 
C147 
C14B 
C14F 
C153 
C157 
C159 
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アド レス 


レジ スタ 


| サン プル ] 


27E9H 


能 | 単 精度 実数 型 か ら 倍 精度 実数 型 へ の 変換 








プル 


213BC1 
CD32C1 
CD7E1B 
DA665C 
23 

CDBE2B 


3A4SEF 
FE04 
2013 


CDE927 
CD222D 


ES 
2159C1 
CD32C1 
E1 


CD32C1 
18D6 


2174C1 
CD32C1 
18CE 


7E 
AZ 
C8 
CD5702 


18F? 


0D0A0A73 
626E676C 
65207072 
65636973 
696F6E20 
6E756D62 
6572203F 
2000 

646F7562 


ABCー 一 HL 


ORG 0C100H 


H 

START: LD HL,PROMPT 
CALL DSPMSG 
CALL 1B7EH 
JP  C,SC66H 
INC HL 
CALL 2BBEH 


LD  A,(OEF45H) 
CP 04H 
JR NZ,ERROR 


CALL 27E92H 
CALL 2D22H 


PUSH HL 

LD HL,ANSMER 
CALL DSPMSG 
POP HL 


CALL DSPMSG 
JR START 


ERROR: LD HL,MSGERR 
CALL DSPMSG 
JR START 


display message ubCoutine 


SPMSGiLD  A,(HL) 
AND A 
RET Z 
CALL 0257H 
INC HL 
JR DSPMSG 


me らら 896 8PG8a 


で … 


解 説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 単 精度 実数 型 の 数 値 
デー タ を, 倍 精 度 実数 型 に 変換 し て も どり ます . 


ーーー convert single preciSion into double precigion 一 ーー 


Screen edi モ or 
jump to system monitor i 千 stop key 


3 Conver into binary code 

5! > 

j error if not single precision 
s 

H 


j※single into double precision 
j convert facc into character code 


j display double precision number 


destroys : register af げ 。h,1 


j display a character 


ROMPT :DEFB 0DH,0AH,0AH, "single precision number ? ",0 


ANSMER :DEFB "double precision number : “。0 


C15D 
C161 
C165 
C169 
C16D 
C171 
C174 
C178 
C17C 
C180 
C184 
C188 
C18C 


C18D 


6C652070 
72656369 
736926F GE 
206E756D 
62657220 
3A2000 
6E6F7420 
73696E67 
6C652070 
7265636? 
73696FG6E 
20212107 
00 


※GC100 


MSGERR :DEFB "not single precision !!"。07H,0 


END 


ingle precision number ? 
not single precision !! 


ョ ingle precision number 
double precision number 


や ざ 


gingle precision number ? 
not single precision !! 


single precision number ? 


double precision number 


single precision number ? 


※ 
0k 


print cdb1(123.456 ) 
123.4559936523438 


0k 


10000 


100000 
100000 
10000000000 


123.456 
123 .4559936523438 
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27F2H FACC の 倍 精 度 実数 型 指定 





アド レス | 27F2H 


機 能 | フロ ー テ ィング ・ ア キュ ムレ ー タ の 倍 精 度 実数 型 指 定 
レジ スタ | AーBCーーー 一 























解 説 | フロ ー テ ィング ・ ア キュ ムレ ー タ の 型 を 格納 する EF 4 5 H 番 地 に , 
倍 精度 実数 型 を 示す 0 8H を 入れ て も どり ます . 

具体 的 に は , アキ ュ ム レー タ に 0 8 H を 与え て 27A1H 番 地 に ジャ ンプ し て 
いま す . 


27F5H FACC の 単 精度 実数 型 指定 


アド レス 27F5H 
機 能 | フロ ー テ ィング ・ ア キュ ムレ ー タ の 単 精度 実数 型 指定 
レジ スタ | Aーーーーーー 一 

















解 説 | フロ ー テ ィング ・ ア キュ ムレ ー タ の 型 を 格納 する EF 4 5 HH 番地 に , 
単 精度 実数 型 を 示す 0 4 H を 入れ て も どり ます . 

具体 的 に は , アキ ュ ム レー タ に 0 4 H を 与え て 2 7A1H 番 地 に ジャ ンプ し て 
いま す . 


サン プル 





H 
3 ーーー calculate nr^2Xpi ーー 


ORG 0C100H 
H 

C100 214AC1 START: LD HL,PROMPT 
C103 CD41C1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH ) BCCeen @di モ or 
C109 DA665C JP C,5C66H ?) jump to sy ョ tem monitor i 千 stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH j conver モ in て to binary code 
C110 CDB327 CALL 27B3H j CoOnver セ into single precision 
C113 CDBD26 CALL 26BDH j move from facc to register bcde 
C116 CD4125 CALL 2541H j multiply r by ヒ 
C119 CDB32 ァ 7 CALL 27B3H 3j convert into single precigsion 
C11C CDBD26 CALL 26BDH : move from facc to register bcde 
C11F 21DBOF LD HL , 0FDBH 日 
C122 22A8F0O LD (0F0A8H) , HL H 
C125 214982 LD HL , 8249H ?%※se モ con=tant number of 3.14159 
C128 22AAF0 LD (OFOAAH) ,H H 
C12B CDF52?7 CALL 27F5H 日 
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C12E CD4125 CALL 2541H j multiply r^2 by pi 
C131 CD222D CALL 2D22H j convert into character code 
C134 E5 PUSH HL 
C135 2157C1 LD HL , ANSUER 
C138 CD41C1 CALL DSPMSG 
C13B E1 POP HL 
C13C CD41C1 CALL DSPMSG : display re5ul モ 
C13F 18BF " JR START 
: display message SubCoutine 
) destroyS : register a ぅ げ 。h,1 
C141 7E DSPMSG:LD 。A,〈HL) 
C142 AZ AND A 
C143 C8 RET Z 
C144 CD5702 CALL 0257H j display a character 
C147 23 INC HL 
C148 18F ァ 7 JR DSPMSG 
) meSage area 
C14A 0DOA0A72 PROMPT:DEFB 0DH,0AH,0AH,"r ? 40 
C14E 20202020 
C152 20203F20 
C156 00 
C157 725E322A ANSMER:DEFB “r^2*pi : /,0 
C15B 7069203A 
C15F 2000 
C161 " END 
%GC100 
F ? 0.001 
r^2*pi : 3.14159E-06 
la ? 0.1 
r^2Xpi :  .0314159 
ai ? 1 
r^2Xpi : 3.14159 
F ? 10 
r^2Xpi : 314.159 
ビ ? 100 


r^2Xpi : 31415.9 


了 
2%pi 


ビ 


3 


1000 
3.14159E+06 


se う 


ざ 
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282CH 整数 部 の 計算 


2 8 2CH 
整数 部 の 計算 
AFBCDEHL 


フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 数 値 デ ゲー タ の 小数 点 
以下 を 取り 去っ た 値 (F IX) を 求め 同じ く フ ロー ティ ング ・ ア キュ ムレ ー タ 
に 与え て も どり ます . 

この シス テム ・ サ プルー チン に よる 演算 結果 と , 2 8 3FH 番 地 の シ ステ ム ・ 
サブ ルー チン に よる 演算 結果 は ,、 フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 
数 値 デ ー タ が 正 の と き 等 し く な り ま す が , 負 と な っ た 場合 前 者 は 小数 部 分 を 取り 
去っ て し まい ます . し た が っ て , この 場合 は 前 者 で 得 ら れる 値 が 後者 で 得 ら れる 
値 よ り も 大 きく な り ま す . 


ーーー 千 x func モ ioOn 上 GS 上 PCOogtam -ー 一 


ORG 0C100H 

H 
C100 2137C1 START: LD HL , PROMPT 
C103 CD2EC1 CALL DSPMSG 
C106 CD7E1B 9 CALL 1B7EH ) screen editor 
C109 DA66SC JP C,5C66H 』 =ystem monitor i 千 stop key 

H 
C10C 23 INC HL 
C10D ES5 PUSH HL 
C10E CDBE2B 1 CALL 2BBEH 』 conver 革 into binary code 
C111 CD2C28 CALL 282CH 3※abs function 
C114 CD222D CALL 2D22H 3】 conver in セ to character code 
C117 EB ・ EX DE ,HL ) top address of resul in reg-de 
C118 2145C1 LD HL,ANS1 
C11B CD2EC1 CALL DSPMSG 
C11E E1 " POP HL : top address of a input number 
C11F CD2EC1 CALL DSPMSG j display a inpu number again 
Cc122 2151C1 LD HL,ANS2 
C125 CD2EC1 CALL DSPMSG 
C128 EB 5 EX DE,HL : top address of result in reg-h1 
C129 CD2EC1 CALL DSPMSG j display result 
C12C 1802 JR START 

) diap1 ay meaBage SubCoutine 

B destroys : register a。f,h。1 
C12E 7E DSPtSG:LD 。A,HL) 
C12F AZ AND AaA 
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C130 C8 RET Z 
C131 CD5702 CALL 0257H j display a character 
C134 23 INC HL 
C135 18F ァ 7 JR DSPMSG 
H 
3) meS ら Sage aC@a 
H 
C137 0D0A6120 PROMPT:DEFB 0DH,0AH,"a number ? 7.0 
C13B 6E756D62 
C13F 6572203F 
C143 2000 
C145 20202020 ANS1: DEFB “ fix ( “,0 
C149 20666978 
C14D 20282000 
C151 20292069 ANS2: DEFB " ) is equal to “,0 
C155 73206571 
C159 75616C20 
C15D 746F2000 
C161 END 
%GC100 
8 number ? -2 
fix ( -2 ) is equal to -2 
a number ? -1.6 
fix ( -1.6 ) is equal to -1 
a number ? -1.5 
fix ( -1.5 ) is equal to -1 
a number ? -1.4 
fix ( -1.4 ) is equal to -1 
a number ? 0 
fix ( 0 ) is equal to 0 
a number ? 1.4 
fix ( 1.4 ) is equal to 1 
a number ? 1.5 
fix ( 1.5 ) is equal to 1 
a number ? 1.6 
fix ( 1.6 ) is equal to 1 
8a number ? 2 
fix ( 2 ) is equal to 2 
a number ? 
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283FH 





機 


アド レス 


能 











レジ スタ 











283FH 


小数 点 以 下 を 切り 捨て た 整数 値 の 計算 


小数 点 以下 を 切り 捨て た 整数 値 の 計算 
AFBCDEHL 


解 説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 数 値 デ ー タ の 値 を 超 


えな い 最 大 の 整数 (I NT) を も と め , 同じ く フ ロー ティ ング ・ ア キュ ムレ ー タ 
に 与え て も どり ます . 


サン プル 


C100 
C103 


C106 
C109 


C10C 
C100 


C10E 
C111 
C114 


C117 


C118 
C11B 


C11E 
C11F 


C122 
C125 


C128 
C129 


C12C 


C12E 
C12F 
C130 
C131 
C134 
C135 


C137 
C13B 
C13F 
C143 
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ORG 0C100H 
2137C1 START: LD HL,PROMPT 
CD2EC1 CALL DSPMSG 
CD7E1B CALL 1B7EH 
DAe65C JP  C,5CeeH 
23 INC HL 
E5 PUSH HL 
cpBE2B CALL 2BBEH 
CD3F28 CALL 283FH 
CD222D CALL 2D22H 
EB " EX DE,HL 
2145C1 LD HL,ANS1 
CD2EC1 CALL DSPMSG 
E1 1 POP HL 
CD2EC1 CALL DSPMSG 
2151C1 LD HL,ANS2 
CD2EC1 CALL DSPMSG 
EB - EX DE,HL 
CD2EC1 CALL DSPMSG 
1802 JR START 
) disp]l ay mesaage SubCoutine 
H 
3 
7E DSPMSG:LD 。A,(HL) 
A7 AND A 
C8 RET Z 
CD5702 CALL 0257H 
23 INC HL 
18F ィ JR DSPNSG 
1 me らら 89G 8 じ G8 
000Ae120 P 
6E756D62 
6572203F 
2000 


ーーー in funcC モ ion 上 eB 七 PCOg セ tam 一 一 


creen edi モ or 


8 
ytem monitor iT stop key 


3 convert into binary code 
3X※1in モ 和 function 
convert into character code 


: top address of resul モ in reg-de 


: top address of a input number 
) display a input number again 


j top address of result in reg-h1 
j display resul モ 


destroys : register a ヵ fh,1 


) display a character 


R0MPT:DEFB 0DH,0AH,"a number ? ",0 


C145 20202020 ANS1: DEFB “ in も ( “,0 
C149 20696E74 

C140D 20282000 

C151 20292069 ANS2: DEFB ^ ) is equal to “,0 
C155 ?3206571 

C159 75616C20 

C15D 746F2000 


C161 END 
6C100 
8a number ? -2 

int ( -2 ) is equal to -2 
a number ? -1.6 

int ( -1.6 ) is equal to -2 
a number ? -1.5 

int ( -1.5 ) is equal to -2 
a number ? -1.4 

int ( -1。4 ) is equal to -2 
a number ? 0 

in も t( 0 ) is equal to 0 
a number ? 1.4 

int ( 1.4 ) is equal to 1 
a number ? 1.5 

int ( 1.5 ) is equal to 1 
a number ? 1.6 

in も ( 1.6 ) is equal to 1 
a number ? 2 

in も ( 2 ) is equal to 2 
a number ? 
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28D2H 整数 の 減算 





アド レス 
[機能 
レジ スタ 











2 8D2H 
整数 の 減算 
AFBCDEHL 


解 説 | レジ スタ DE に 格納 され た 有 符 号 1 6 ビッ ト の 整数 を 被 減数 と し , 


レジ スタ HL し に 格納 され た 有 符 号 1 6 ピッ ト の 整数 を 減数 と し て , 両者 の 間 で 減 
算 を 行い , 演算 結果 を レジ スタ HL し お よび フロ ー テ ィング ・ ア キュ ムレ ー タ (F 
0A8H-FOA9H 番 地 ) に 格納 し て も どり ます . 


C100 
C103 
C106 
C109 
C10C 
C10D 
C110 
C113 
C117 


C118 
C11B 
C11E 
C121 
C122 
C125 
C128 


C12B 
C12C 


C12F 
C132 
C133 
C136 
C139 
C13A 


C13D 


C13F 
C140 
C141 
C142 
C145 
C146 


C148 
C14C 
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2148C1 
CD3FC1 
CD7E1B 
DA665C 
23 
CDBE2B 
CD7F27 
EDSBA8F0 
DS 


2158C1 
CD3FC1 
CD7E1B 
23 

CDBE2B 
CD7F27 
2AA8F0 


D1 
CDD228 


CD222D 
E5 
2165C1 
CD3FC1 
E1 
CD3FC1 


18C1 


7E 
AZ 
C8 
CDS5702 


18F7 


0D0A0A20 
20202020 


ORG 0C100H 


H 

START: LD HL,PRMPT1 
CALL DSPMSG 
CALL 1B7EH 
JP  C,5C66H 
INC HL 
CALL 2BBEH 
CALL 277FH 
LD DE,(OFOA8H) 
PUSH DE 


LD HL,PRMPT2 
CALL DSPMSG 
CALL 1B7EH 

INC HL 

CALL 2BBEH 

CALL 277FH 

LD HL,(OFOA8H) 


POP DE 


CALL 28D2H 


CALL 2D22H 
PUSH HL 

LD HL,ANSUER 
CALL DSPMSG 
POP HL 

CALL DSPMSG 


JR START 


display mesBage SubFou モ ine 


ロー ーー 


ISPMSGiLD  A,(HL) 
AND A 
RET Z 
CALL 0257H 
INC HL 
JR DSPMSG 


me らら 8 の 9@G 8 じ G8 


で ・ < 


RMPT1 :DEFB 0DH,0AH,0AH,“ 


ーーー subtraction for integer 一 ーー 


screen editor 
: system monitor if stop key 


convert into binary code 
convert into integer 
store 1=t argument into reg-de 


screen edi モ or 


convert into binary code 
convert in セ to integer 
ョ et 2nd argument into reg-h1 


) et 1 argumen 七 into reg-de 
#X※Bubtraction for integer 


j conver into character code 


j display result 


: display a characer 


い J 


3 ? 20 


C150 78252020 
C154 203F2000 
C158 20202020 PRMPT2:DEFB “ ッ る ? 0 
C15C 20792520 
C160 20203F20 
C164 00 
C165 ?7825202D ANSMER:DEFB ^x% - y% ーー-> “。0 
C169 20792520 
C16D 2D2D3E20 
C171 00 
日 
C172. END 
%GC100 
メ え ? 123 
ッ え ? 23 
x を ーッ % ーー> 100 
x を 。 ? 123 
ッ え ? 0.4 
x を ーッ ーー-> 123 
メ を ? 123 
y 々 。 ? 0.4 
x を - y ッ を ーー> 123 
メ を ? 123 
トル 4 ? 0.5 
x を - y ッ % ー-> 123 
メ を ? 
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28DDH 整数 の 加算 


アド レス | 2 8DDH 
機 能 | 整数 の 加算 


レジ スタ | AFBCDEHL 


解説 | レジ スタ DE に 格納 され た 有 符 号 1 6 ビット の 整数 を 被 加 数 と し , 
レジ スタ HL に 格納 され た 有 符 号 1 6 ビッ ト の 整数 を 加 数 と し て , 両者 の 間 で 加 
算 を 行い , 演算 結果 を レジ スタ HL し お よび フロ ー テ ィング ・ ア キュ ムレ ー タ (F 
0A8H-FOA9H 番 地 ) に 格納 し て も どり ます . 

演算 結果 が 整数 型 と し て 扱い 得る 範囲 を 越え た 場合 に は , 単 精度 の 値 と し て フ 
ロー ティ ング ・ ア キュ ムレ ー タ に 返さ れ ま す が , その 場合 に は レジ スタ HL に 与 
そら れ た パラ メー タ は 意味 を 持ち ませ ん . 


サン プル 




















ーーー _ addition 千 or integer 一 一 一 


ORG 0C100H 
H 
C100 2148C1 START: LD HL ,PRMPT1 
C103 CD3FC1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH j BCreen editor 
C109 DA665C JP C,S5C66H j ytem monitor if stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH j COnver モ into binary code 
C110 CD7F27 CALL 277FH j Convert into integer 
C113 EDSBA8F0 LD DE ,(0F0A8H ) j = モ ore 1= モ _ argument into reg-de 
C117 D5 PUSH DE 
C118 2158C1 LD HL,PRMPT2 
C11B CD3FC1 CALL DSPMSG 
C11E CD7E1B CALL 1B7EH ) creen edi モ or 
C121 23 INC HL 
C122 CDBE2B CALL 2BBEH 3) Convert into binary code 
C125 CD7F27 CALL 277FH j Convert into integer 
C128 2AA8F0 LD HL,(OF0A8H) : set 2nd argument into reg-h1 
H 

C12B D1 POP DE j Bet 1= モ aCgumen 七 ふ n モ Oo reg-de 
C12C CDDD28 CALL 28DDH j※add ュ も ion for integer 
C12F CD222D CALL 2D22H 』 COn ソ Ve も ino character code 
C132 E5 PUSH HL 
C133 2165C1 LD HL , ANSUER 
C136 CD3FC1 CALL DSPMSG 
C139 E1 POP HL 
C13A CD3FC1 CALL DSPMSG j display re8ul モ 
C13D 18C1 JR START 


di sp 1 ay mes==age ubDCOu モ ine 


ロー 


C13F 7E SPMSG:LD A,(HL ) 

C140 AZ AND A 

C141 C8 RET Z 

C142 CD5702 CALL 0257H j display a character 
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C145 23 INC HL 


C146 18F ァ 7 JR DSPMSG 
H 
j me55age area 
C148 0D0A0A20 PRMPT1 :DEFB 0DH, 0AH, 0AH,“ メ を 7 0 


C14C 20202020 

C150 78252020 

C154 203F2000 

C158 20202020 PRMPT2:DEFB ^“ y 々 ーー ? 0 
C15C 20792520 

C160 20203F20 

C164 00 

C165 ?7825202B ANSUER:DEFB ^x% + ッ % ー-> ^,0 
C169 20792520 

C16D 2D2D3E20 


C171 00 
H 
C172 END 
※GC100 
メ を ? 20 
ッ を ? 30 
x を + ッ タ ーー> 50 
メ を ? 500 
トス 4 ? -600 
x を + ッ % ーー〉> -100 
メ を ? 10 
ッ を ? 0.5 
x+ ッ タ ー-> 10 
メ を ? 300 
ッ を ? 
x を キッ ー-〉> 300 


X 
eS 
ざ 
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2 8FDH 整数 の 乗算 


78FDH 
整数 の 生 算 
AFBCDEHL 


レジ スタ DE に 格納 され た 有 符 号 1 6 ピッ ト の 整数 を 被 乗 数 と し , 
レジ スタ H 工 に 格納 され た 有 符 号 1 6 ビッ ト の 整数 を 乗数 と し て , 両者 の 間 で 乗 
算 を 行い , 演算 結果 を レジ スタ HL し お よび フロ ー テ ィング ・ ア キュ ムレ ー タ (F 
0A8H-FOA9H 番 地 ) に 格納 し て も どり ます . 

演算 結果 が 整数 型 と し て 扱い 得る 範囲 を 越え た 場合 に は , 単 精度 の 値 と し て フ 
ロー ティ ング ・ ア キュ ムレ ー タ に 返さ れ ま す が , その 場合 に は レジ スタ HL に 与 
そえ られ た パラ メー タ は 意味 を 持ち ませ ん . 


ーーー multipl icaion for integer 一 


ORG 0C100H 
C100 2148C1 START: LD HL,PRMPT1 
C103 CD3FC1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH ) Screen edi モ o ヒ 
C109 DA665C JP C,5C66H ) sy ョ tem monitor i 千 stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH ) Convert into binary code 
C110 CD7F2 ァ 7 CALL 277FH j convert into integer 
C113 EDSBA8F0 LD DE,(OF0A8H ) ) store 1= モ 上 aroument into reg-de 
C117 DS5 PUSH DE 
C118 2158C1 : LD HL,PRMPT2 
C11B CD3FC1 CALL DSPMSG 
C11E CD7E1B CALL 1B7EH }) gcreen edi モ or 
C121 23 INC HL 
C122 CDBE2B CALL 2BBEH 3) conver モ into binary code 
C125 CD7F27 CALL 277FH 1 convert into integer 
C128 2AA8F0 LD HL ,(OF0A8H) }) se 2nd argument into reg- ト 1 
C12B D1 POP DE ) se て 1a argument into reg-de 
C12C CDFD28 CALL 28FDH j※mu]l モ ip1 1Ca モ ion for integer 
C12F CD222D ・ CALL 2D22H j ConveFt into character code 
C132 E5 PUSH HL 
C133 2165C1 LD HL,ANSMER 
C136 CD3FC1 CALL DSPMSG 
C139 E1 POP HL 
C13A CD3FC1 CALL DSPMSG ) display result 
C13D 18C1 3 JR START 

: di sp 1 ay me ら =aSage SuDCou モ ine 

C13F 7E DSPMSG:LD A。(HL) 
C140 AZ AND A 
C141 C8 RET Z 
C142 CD5702 CALL 0257H 3) display a characer 


182 


C145 
C146 


C148 
C14C 
C150 
C154 
C158 
C15C 
C160 
C164 
C165 
C169 
C16D 
C171 


C172 


Overf 


23 INC HL 
18F?Z JR DSPMSG 
) me ら 5ag@e aea 
0D0A0A20 PRMPT1 :DEFB 0DH,0AH, 0AH, x を 0 
20202020 
78252020 
203F2000 
20202020 PRMPT2:DEFB “ アッ を ? 0 
20792520 
20203F 20 
00 
7825202A ANSMER:DEFB ^x% %※ ッ % ー-> ^,0 


20792520 
202D3E20 
00 

H 

END 

0 
x% 。 ? 1000 
y ッ ター。 ? 123 
ッ 々 --> 123000 
x を 。  ? 123.456 
ッ 2? 789 
メタ --> 97047 
x% 。 ? -500 
y 々 。 ? 50 
ッ タ ーー> -25000 
x% 。 ? 1000 
ッ 々  ? 60000 
1ou 
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2950H 整数 の 除算 1 





アド レス | 2950H 
機 能 | 整数 の 除算 1 
レジ スタ | AFBCDEHL 























部 





解 レジ スタ DE に 格納 され た 有 符 号 1 6 ビット の 整数 を 被 除 数 と し , 
レジ スタ HL し に 格納 され た 有人 符号 1 6 ビット の 整数 を 除 数 と し て , 両者 の 間 で 除 
算 を 行い , 演算 結果 を レジ スタ HL し お よび フロ ー テ ィング ・ ア キュ ムレ ー タ (F 
0A8H-F0OA9H 番 地 ) に 格納 し て も どり ます . 

た だ し , レジ スタ HL に 与え る 除 数 が ,。 0 0 0 0H (ゼロ ) で あっ た 場合 に の 
み , Division by zero"” エラ ー が 発生 し イン タプ リタ の 制御 下 に 入り ます . 














サン プル 
j ーーー divi ら Sion for integer ーー 
" ORG 0C100H 
C100 2148C1 START: LD HL ,PRMPT1 
C103 CD3FC1 CALL DSPMSG 
C106 CDZE1B CALL 1B7EH j BCPeen edi モ or 
C109 DA665C JP C,5C66H j syStem monitor if stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH j convert into binary code 
C110 CD7F27 CALL 277FH ) Con ひ er 七 into integer 
C113 ED5BA8F0 LD DE , (OF0A8H ) : tore 1 argument into reg-de 
C117 DS5 PUSH DE 
C118 2158C1 ・ LD HL ,PRMPT2 
C11B CD3FC1 CALL DSPMSG 
C11E CD7E1B CALL 1B7EH j creen edi モ or 
C121 23 INC HL 
C122 CDBE2B CALL 2BBEH ) convert into binary code 
C125 CD7F27 CALL 277FH ) convert into integer 
C128 2AA8F0O LD HL,(0F0A8H 〉 j Set 2nd argument into reg-h1 
H 
C12B D1 POP DE j se 1= モ argument into reg-de 
C12C CD5029 " CALL 2950H Xi りら ision for integer 
C12F CD222D " CALL 2D22H j conver モ into character code 
C132 E5 PUSH HL 
C133 2165C1 LD HL , ANSUER 
C136 CD3FC1 CALL DSPMSG 
C139 E1 POP HL 
C13A CD3FC1 CALL DSPMSG j display eaul モ 
C13D 18C1 JR START 
1 disp]lay mesaage SubFoutine 
C13F 7E DSPSGiLD 。A,〈HL) 
C140 AZ AND A 
C141 C8 RET Z 
C142 CD5702 CALL 0257H j display a character 
C145 23 INC HL 
C146 18F? JR DSPMSG 
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C148 
C14C 
C150 
C154 
C158 
C15C 
C160 
C164 
C165 
C169 
C16D 
C171 


C172 


0D0A0A20 


me ら =8896 8F@8 


で 


RMPT1 :DEFB 0DH,0AH,0AH, “ に 3 


い 3 


? 0 


20202020 

78252020 

203F2000 

20202020 PRMPT2:DEFB ^ y% 。 ? 0 
20792520 

20203F20 


00 


7825202F ANSMER:DEFB "x% ノッ を ーー-> “0 
20792520 
2D2D3E20 


00 


\GC100 


X 
3 
さ ヽ 


※ 
に 3 
さ 


くく マメ 人 、 3 に 電 
まま コ まま ぶ 全 0 べべ ま バ 』 


くく ※X 
に さぶ が 、 コ 


メ を 
る 


Divoision by 


0k 


END 


100 
100 

100 

0.5 


erO 
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299DH 整数 の 符号 反転 1 


アド レス | 299DH 
機能 | 整数 の 符号 反転 1 
レジ スタ | AFBCDEHL 




















解 説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 有 符 号 16 ビ ピット の 
整数 の 符号 を 反転 (NEGATION) し , 演算 結果 を レジ スタ H 虐 お よび 整数 
型 の フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 し て も どり ます . 

た だ し , フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され て いた デー タ が 800 0 
H (一 32768) で あっ た 場合 に は , 符号 反転 の 結果 (3 2 7 6 8) が 整数 弄 
と し て 扱う こと の で きる 範囲 を 超え て し まう た め , 演算 結果 は 単 精度 型 の 実数 と 
し て フロ ー テ ィング ・ ア キュ ムレ ー タ だ け に 格納 され ます . 

具体 的 に は , 整数 型 フ ロー ティ ング ・ ア キュ ムレ ー タ (F0A8H-FOA9 
H 番 地 ) の デー タ を レジ スタ HL に 移動 後 2 9 A 0 H 番 地 に エン トリ し ます . 





29A0H 整数 の 符号 反転 2 


アド レス | 29A0H 
機能 | 整数 の 符号 反転 2 
レジ スタ | AFBCDEHL 

















解説 | レジ スタ H 工 に 格納 され た 有 待 号 16 ビ ッ ト の 整数 の 符号 を 反転 

(NEGATION) し , 演算 結果 を レジ スタ HH 工 お よび 整数 型 の フロ ー テ ィ ン 
グ ・ ア キュ ムレ ー タ に 格納 し て も どり ます . 

た だ し , レジ スタ HL に 格納 され て いた デー タ が 8000H (一 32768) 
で あっ た 場合 に は , 符号 反転 の 結果 (3 2 7 68) が 整数 型 と し て 扱う こと の で 
きる 範囲 を 超え て し まう た め , 演算 結果 は 単 精度 型 の 実数 と し て フロ ー テ ィング ・ 
アキ ュ ム レー タ だ け に 格納 され ます . 
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サン プル 











C100 212FC1 
C103 CD26C1 
C106 CDZ7E1B 
C109 DA665C 
C10C 23 

C10D CDBE2B 
C110 CD7F27 


C113 CD2D29 


C116 CD222D 
C119 E5 
C11A 213BC1 
C11D CD26C1 
C120 E1 
C121 CD26C1 


C124 18DA 


C126 7E 
C127 AZ 
C128 C8 
C129 CD5702 
C12C 23 
C12D 18F? 


C12F 0DOA0A20 
C133 78252020 
C137 203F2000 
C13B 2D782520 
C13F 2D2D3E20 
C143 00 


C144 


\GC100 


メ を ? &h8000 
ーx を --〉> 32768 


を ? &h7ff げ f 
ーx ーー> 32767 
メ を ? 1234 

る ーー ッ > -1234 


メ る ? -22222 
を ーー-> 22222 


メタ ? 0・.005 
えー-> 0 


x%  ? 40000 
Overf1] ou 


Ok 


ORG 0C100H 


H 

START: LD HL,PROMPT 
CALL DSPMSG 
CALL 1B7EH 
JP  C,SC66H 
INC HL 
CALL 2BBEH 
CALL 277FH 


CALL 299DH 


CALL 2D22H 
PUSH HL 

LD HL,ANSMER 
CALL DSPMSG 
POP HL 

CALL DSPMSG 


JR START 


display message Subroutine 


ロー ・ < 


ISPMSGiLD  A,(HL) 
AND A 
RET Z 
CALL 0257H 
INC HL 
JR DSPMSG 


me8a5a9e 8r@a 


で ・・ < 


ROMPT :DEFB 0DH,0AH,0AH,” x を 


ANSMER:DEFB “-x% --> “,0 


END 


ーーー negation for integer ーー 一 


creen edi モ or 
Jump to system monitor iT stop key 


convert into binary code 
COnV@F モ 上 into integer 


j※negation for integer in facc 


conver セ into character code 


display result 


display a character 
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29B2H 整数 の 剰余 演算 





アド 


レス 








機 


能 





レジ スタ 











解 


サン プル 


C100 
C103 
C106 
C109 
C10C 
C10D 
C110 
C113 
C117 


C118 
C11B 
C11E 
C121 
C122 
C125 
C128 


C12B 
C12C 


C12F 
C132 
C133 
C136 
C132 
C13A 


C13D 


C13F 
C140 
C141 
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に 





29B2H 
整数 の 剰余 演算 
AFBCDEHL 


レジ スタ DE に 格納 され た 有 符 号 1 6 ビッ ト の 整数 を 被 除 数 と し , 
レジ スタ HL に 格納 され た 有 符 号 1 6 ビッ ト の 整数 を 除 数 と し て , 両者 の 間 で 除 
算 を 行い , 剰余 を レジ スタ DE お よび フロ ー テ ィング ・ ア キュ ムレ ー タ (F0A 
8H-FOA9H 番 地 ) に 格納 し て も どり ます . 

た だ し , レジ スタ HL に 与え る 除 数 が , 0 
み “Division by zero" エラ ー が 発生 し , イン タプ リタ の 制御 下 に 入り ます . 


ーーー calculate remainder 一 


ORG 0C100H 
2148C1 START: LD HL,PRMPT1 
CD3FC1 CALL DSPMSG 
CD7E1B CALL 1B7EH 
DAe65C JP  C,5C6eH 
23 INC HL 
CDBE2B CALL 2BBEH 
CD7F27 CALL 277FH 
ED5BA8FO LD DE,(OFOA8H) 
D5 PUSH DE 
215AC1 LD HL,PRMPT2 
CD3FC1 CALL DSPMSG 
CD7E1B CALL 1B7EH 
23 INC HL 
CDBE2B CALL 2BBEH 
CD7F27 CALL 277FH 
2AA8F0 LD HL,(OFOA8H) 
D1 ・ POP DE 
cDB229 CALL 29B2H 
cp2220 CALL 2D22H 
E5 PUSH HL 
2162C1 LD HL,ANSMER 
CD3FC1 CALL DSPMSG 
E1 POP HL 
CD3FC1 CALL DSPMSG 
18C1 JR START 

) disp 1 ay me ヨ aSage SubCou モ ine 
3 destroy= : register a ョ , 生 。 
7E DSPMSG:LD 。A,〈HL) 
A7 AND A 
C8 RET Z 


0 0 0H (ゼロ ) で あっ た 場合 に の 


Screen edi モ or 
jump to sys=tem monitor if stop key 


conver セ into binary code 
CoOn り er in も o integoer 
tore 1= モ argumen モ into reg-de 


Screen edi モ or 


conver セ モ into binary code 
COn ソ einto integer 
se 上 2nd argumen into reg-h1 


Se て 1 argumen 上 into reg-de 


3※calculate remainder 


j convert into character code 


) display resul モ 


h,1 


C142 CD5702 CALL 0257H j display a character 
C145 23 INC HL 
C146 18F?7 JR DSPNSG 


me ら =8a9e area 


で <・ 
に 


C148 0D0A0A20 ? 40 
C14C 20202020 

C150 20207825 

C154 2020203F 

C158 2000 

C15A 20202020 PRMPT2:DEFB “ ッ 
C15E 20202079 

C162 25202020 

C166 3F2000 

C169 7?2656D61 ANSMUER:DEFB "remainder --> “,0 
C16D 696E6465 

C171 72202D2D 

C175 3E2000 


RMPT1:DEFB 0DH,0AH,0AH,“ X 


に 3 


? 0 


C178 END 
\GC100 

メ を ? 10 

ッ を ? 3 
remainder --> 1 

メ を ? 1000 

メタ ? 501 
remainder --> 499 

を ? 10 

ドル 4 学 つき 
remainder --> 1 

を ? 1000 

ッ る ? -501 
remainder --> 499 

を ? -10000 

ッ を ? -3 
remainder > -1 

x を ? 
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29C3H 倍 精 度 型 実 数 の 減算 





アド レス | 2 すら 月 
機 能 | 倍 精 度 型 実 数 の 減算 
レジ スタ | AFBCDEHL 

















解 説 | フロ ー テ ィング ・ ア キュ ムレ ー タ (F0A4H-FOABH 番 地 ) 

に 格納 され た 倍 精 度 型 の 実数 を 被 減数 と し , サブ プ ・ フ ロー ティ ング ・ ア キュ ムレ 
ー タ (FOAEH-FOB5H 番 地 ) に 格納 され た 倍 精 度 型 の 実数 を 減数 と し て , 
両者 の 間 で 減算 を 行い , 演算 結果 を フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 し て 
も どり ます . 


サン プル 








ーーー Subtrac せ ion for double preciSion -- 一 


ORG 0C100H 
H 
C100 2163C1 START: LD HL,PRMPT1 
C103 CDSAC1 CALL DSPMSG 
C106 CD7E1B CALL 1B7ZEH : Screen edi モ or レ 
C109 DA665C JP C,S5C66H j syStem moni モ or if stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH 3: Conver キ into binary code 
C110 CDDF27 CALL 27DFH j conver into double precision 
C113 21A4F0O LD HL,OF0A4H 
C116 118DC1 LD DE , BUFFER j tore 1 上 argument into buffer 
C119 010800 LD BC,8 H 
C11C EDBO LDIR 
H 
C11E 2173C1 LD HL,PRMPT2 
C121 CDSAC1 CALL DSPMSG 
C124 CD7E1B CALL 1B7EH ) screen edi モ or 
C127 DA665C JP C,S5C66H : ョ yBtem monitor if stop key 
C12A 23 INC HL 
C12B CDBE2B CALL 2BBEH ) conver モ into binary code 
C12E CDDF27 CALL 27DFH 3 COnver セ も into double precision 
H 
C131 21A4F0O LD HL,OF0A4H H 
C134 11AEF0O LD DE , 0F0AEH j Be 2nd argumen モ into =ub- 和 facc 
C137 010800 LD BC,8 3 
C13A EDBO LDIR 
C13C 218DC1 LD HL,BUFFER H 
C13F 11A4FO LD DE ,0F0A4H j se 1 argument into facc 
C142 010800 LD BC,8 5 
C145 EDBO LDIR 
C147 CDC329 CALL 29C3H 3 ※ub モ Cac モ ion Tor double precision 
C14A CD222D CALL 2D22H 3』 COnver モ ino character code 
C14D ES PUSH HL 
C14E 2180C1 LD HL,ANSMER 
C151 CDSAC1 CALL DSPMSG 
C154 E1 POP HL 
C155 CD5AC1 CALL DSPMSG : display resul モ 
C158 18A6 JR START 
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H 
j display mess=age SubFoutine 


H 
DSPMSG:LD A,(HL ) 


C15A 7E 
C15B AZ7 AND AaA 
C15C C8 RET Z 
C15D CD5702 CALL 0257H j display a character 
C160 23 INC HL 
C161 18F7 JR DSPMSG 
1 me5S5age area 
C163 0D0A0A20 PRMPT1 :DEFB 0DH,0AH, 0AH,“ x 手 2? 740 
C167 20202020 
C16B 78232020 
C16F 203F2000 
C173 20202020 PRMPT2:DEFB “ ッ 0 
C177 20792320 
C17B 20203F20 
C17F 00 
C180 7823202D ANSUER:DEFB ^xW - y# --> ",0 
C184 20792320 
C188 2D2D3E20 
C18C 00 
1 buffer for the fira モ argumen モ 
Cc18D BUFFER:DEFS 8 
C195 END 
%GC100 
メ x 村 ? 1 
y#  ? 100000000000000 
x 拉 一 y 析 > -99999999999999 
メ x 柏 の - 3 
ッ ? 1000000000000000000000000 
x 村 一 y 欄 > -1D+24 
x 寺 。 ? 300 
ッ 2 に ) 
x 料 - y 栖 --> 298.5 
x 昔 。 ? 10000000000000000000000000000000000 
y 剛  ? 30000000000000000000000000000000000 
X 掛 一 y 柏 > -2D+34 
性 1 
ッ 件 ? 30000000000000000000000000000000000000000000000000000000 
Overf] ou 
0k 


191 


29CAH 倍 精 度 型 実 数 の 加算 





アド レス | 2 9CAH 
機 能 | 倍 精度 型 実数 の 加算 
レジ スタ | AFBCDEHL 


























解説 | フロ ー テ ィング ・ ア キュ ムレ ー タ (F0OA4H-FOABH 番 地 ) 
に 格納 され た 倍 精 度 型 の 実数 を 被 加 数 と し , サブ プ ・ フ ロー ティ ング ・ ア キュ ムレ 
ー タ (FOAEH-FOB5H 番 地 ) に 格納 され た 倍 精 度 型 の 実数 を 加 数 と し て , 
両者 の 間 で 加算 を 行い , 演算 結果 を フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 し て 
も どり ます . 








サン プル 











H 
ーーー addition for double preciSion ーー 
H 


ORG 0C100H 
C100 2163C1 START: LD HL,PRMPT1 
C103 CDSAC1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH ) Screen edi モ or 
C109 DA665C JP C,5C66H j =yBtem monitor if stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH j CoOnvert into binary code 
C110 CDDF27 CALL 27DFH j convert into double precision 
C113 21A4F0O LD HL,OF0A4H H 
C116 118DC1 LD DE ,BUFFER j =tore 1 argumen into buffer 
C119 010800 LD BC,8 H 
C11C EDBO LDIR 
C11E 2173C1 LD HL,PRMPT2 
C121 CD5AC1 CALL DSPMSG 
C124 CD7E1B CALL 1B7EH ) BCreen edi モ or 
C127 DA665C JP C,5C66H j system monitor iT stop key 
C12A 23 INC HL 
C12B CDBE2B CALL 2BBEH j convert into binary code 
C12E CDDF27 CALL 27DFH : convert into double precision 
日 
C131 21A4F0O LD HL,OFOA4H 
C134 11AEFO LD DE,OFOAEH 
C137 010800 LD BC,8 
C13A EDBO LDIR 
C13C 218DC1 LD HL,BUFFER 
C13F 11A4FO LD DE,OFOA4H 
C142 010800 LD BC,8 
C145 EDBO LDIR 
H 
C147 CDCA29 CALL 29CAH j※addition for double precision 
C14A CD222D CALL 2D22H convert into character code 
C14D ES PUSH HL 
C14E 2180C1 LD HL,ANSMER 
C151 CDSAC1 CALL DSPMSG 
C154 E1 POP HL 
C155 CDSAC1 CALL DSPMSG j display resul モ 
H 
C158 18A6 JR START 
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C15A 7E 
C15B AZ 
C15C C8 
C15D CD5702 
C160 23 
C161 18FZ 
C163 0DO0A0A20 
C167 20202020 
C16B 78232020 
C16F 203F2000 
C173 20202020 
C177 20792320 
C17B 20203F20 
C17F 00 
C180 7823202B 
C184 20792320 
C188 2D2D3E20 
C18C 00 
C18D 
C195 
*GC100 
メ 柏 ? 1 
ッ 柱 ル 信 の! 
x 析 + y 桂 ー> 
x 提 は 
ッ 村 ? 2 
x 持 二 y 桂 ーー> 
x 析 ? 0 
y 手 ? 0 
x 桂 二村 一 -> 
x 提 ? 0 
y# 。 20 
x 桂 キ y 半 ーー ツ > 
x 村 全 導 
2 は 
ァ 村 二村 一 ー> 


display message SubCoutine 


ロー 


SPMSGiLD  A,(HL) 
AND A 
RET Z 
CALL 0257H ) display a character 
INC HL 
JR DSPMSG 


me ら 5889@G 8aCGa 


で ー 


RMPT1 :DEFB 0DH,0AH, 0AH,“ メ 折 ? 740 


PRMPT2:DEFB “ ッ 層 を 0 


ANSMER :DEFB "x 必 + y 析 --> 50 


buffer for the first argument 


の ーー < 


UFFER:DEFS 8 


END 


2345678 
234567800000000 
1234567812345678 


3 

・00000000000000001 

・00000000000000001 

1 .999999802114196D-17 
・00000000000000000000000000000000000001 
1 .0000C0005110564D-38 

・5 

・5 

3 
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2AF4H 倍 精 度 型 実数 の 乗算 





アド レス 2AF4H 


機能 | 倍 精 度 型 実数 の 乗算 
レジ スタ | AFBCDEHL 




















解 説 | フロ ー テ ィング ・ ア キュ ムレ ー タ (F0A4H-F0OABH 番 地 ) 

に 格納 され た 倍 精度 型 の 実数 を 被 乗 数 と し , サブ プ ・ フ ロー ティ ング ・ ア キュ ムレ 
ー タ (FOAEH-FOB5H 番 地 ) に 格納 され た 倍 精 度 型 の 実数 を 乗数 と し て , 
両者 の 間 で 乗算 を 行い , 演算 結果 を フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 し て 
も どり ます . 


サン プル 





H 
j ーーー multiplication for double prec1S1On 一 ーー 


ORG 0C100H 
C100 2163C1 START: LD HL , PRMPT1 
C103 CDSAC1 CALL DSPMSG 
C106 CD7E1B CALL 1B7ZEH j Screen edi モ or 
C109 DA665SC JP C,S5C66H j ByBtem monitor i 和 † stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH j COnVer モ into binary code 
C110 CDDF27 CALL 27DFH j convert into double precision 

H 
C113 21A4FO LD HL,OF0A4H H 
C116 118DC1 LD DE , BUFFER :) store 1 て argument into buffer 
C119 010800 LD BC,8 H 
C11C EDBO LDIR 
C11E 2173C1 LD HL,PRMPT2 
C121 CDSAC1 CALL DSPMSG 
C124 CD7E1B CALL 1B7EH j Screen edi モ or 
C127 DA66SC JP C,5C66H j =y ョ tem monitor if top key 
C12A 23 INC HL 
C12B CDBE2B CALL 2BBEH j Conver モ into binary code 
C12E CDDF27 CALL 27DFH j convert into double precision 
C131 21A4F0O LD HL,OF0A4H 
C134 11AEFO LD DE ,0F0AEH j Se 2nd argumen モ in モ o ら ub-facc 
C137 010800 LD BC,8 H 
C13A EDBO LDIR 
C13C 218DC1 LD HL,BUFFER 日 
C13F 11A4FO LD DE ,0F0A4H ) Be モ 1 argumen in セ to facc 
C142 010800 LD BC,8 H 
C145 EDBO LDIR 
C147 CDF42A CALL 2AF4H 3%※mul モ iplication for double 
H 

C14A CD2220 CALL 2D22H 』 COnveF モ into character code 
C14D ES PUSH HL 
C14E 2180C1 LD HL,ANSMER 
C151 CDSAC1 CALL DSPMSG 
C154 E1 POP HL 
C155 CDSAC1 CALL DSPMSG j display resul セ 
C158 18A6 JR START 
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C15A 
C15B 
C15C 
C15D 
C160 
C161 


C163 
C167 
C16B 
C16F 
C173 
C177 
C17B 
C17F 
C180 
C184 
C188 
C18C 


C18D 
C195 


7E 
AZ 
C8 
CD5702 


18F? 


0D0A0A20 
20202020 
78232020 
203F2000 
20202020 
20792320 
20203F 20 
00 

7823202A 
20792320 
2D203E20 
00 


\GC100 


X 析 ※ 


x 析 ※ 


x 柏 ※ 


display message SubrCoutine 


ロー < 


SPMSGiLD  A,(HL) 
AND Aa 
RET Z 
CALL 0257H ) display a character 
INC HL 
JR DSPMSG 


す 
3) me=3age 8aCGa 
PRMPT1 :DEFB 0DH,0AH,0aH。" x 2 7,0 


PRMPT2:DEFB “ y 攻 イー0 


ANSMER:DEFB "x## ※ y 掛 --> “,0 


buffer for the firs argument 


UFFER:DEFS 8 


<・ の ・・ こ ・ < 


END 


x 手 ? 100000 
ッ 本 ? 100000 


アッ 持 ー> 


1 


0000000000 


X 柱 ? 1.000123456789 
ッ 提 ? 100000000000 


ッ # --> 100012345678 .9 
メ 福 たこ は 

ッ # ? -0.5 

ッ 拉 一 -> -1.5 

メ 六 ? 0 

ッ 欄 ? 0.0 

ッ 拉 --> 0 

メ 柱 る 

が 甘 。 学 
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2B37H 倍 精 度 型 実数 の 除算 





アド レス | 2B37H 
機 能 | 倍 精度 型 実数 の 除算 
レジ スタ | AFBCDEHL 

















民 


解 フロ ー テ ィング ・ ア キュ ムレ ー タ (F0A4H-F0OABH 番 地 ) 
に 格納 され た 倍 精度 型 の 実数 を 被 除 数 と し ,. サ プ ・ フ ロー ティ ング ・ ア キュ ムレ 
ー タ (FOAEH-FOB5H 番 地 ) に 格納 され た 倍 精 度 型 の 実数 を 除 数 と し て , 
両者 の 間 で 除算 を 行い , 演算 結果 を フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 し て 

も どり ます . 
も し , サブ ・ フ ロー ティ ング ・ ア キュ ムレ ー タ に 与え る 除 数 が 0 (ゼロ ) で あ 
た 場合 に は , “Division by zero'" エ ラー が 発生 し イン タプ リタ の 制御 下 に 入り 














サン プル 











H 
j ーーー division for double prec1iS1iOn -ー 一 


ORG 0C100H 
C100 2163C1 START: LD HL,PRMPT1 
C103 CDSAC1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH ) Screen edi セ or ヒ 
C109 DA66SC JP C,SC66H j syStem monitor if sotp key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH 3j COnver て into binary code 
C110 CDDF27 CALL 27DFH : convert into double precision 
C113 21A4F0O LD HL ,0F0A4H 
C116 118DC1 LD DE ,BUFFER j store 1st argument into buffer 
C119 010800 LD BC,8 H 
C11C EDBO LDIR 

H 
C11E 2173C1 LD HL,PRMPT2 
C121 CDSAC1 CALL DSPMSG 
C124 CD7E1B CALL 1B7EH j Screen edi モ or 
C127 DA66S5C JP C,SC66H : syStem monitor if top key 
C12A 23 INC HL 
C12B CDBE2B CALL 2BBEH j COnver セ て into binary code 
C12E CDDF27 CALL 27DFH j conver モ into double precision 
C131 21A4F0 LD HL ,0F0A4H H 
C134 11AEFO LD DE ,0FOAEH : Se 2nd argument into sub-facc 
C137 010800 LD BC,8 5 
C13A EDBO LDIR 
C13C 218DC1 LD HL,BUFFER H 
C13F 11A4FO LD DE ,0F0A4H : Se 1= モ argumen モ into facc 
C142 010800 LD BC,8 H 
C145 EDBO LDIR 
C147 CD372B CALL 2B37H jiXdivision for double precision 
H 

C14A CD222D CALL 2D22H j COnver in て to character code 
C14D ES5 PUSH HL 
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C14E 2180C1 LD HL , ANSUER 
C151 CDSAC1 CALL DSPMSG 
C154 E1 POP HL 
C155 CD5AC1 CALL DSPMSG j display resul モ 
C158 18A6 " JR START 
H 5 
j display message SubCoutine 
C15A 7E DSPMSG:LD A,(HL) 
C15B A ァ 7 AND A 
C15C C8 RET Z 
C15D CD5702 CALL 0257H j display a character 
C160 23 INC HL 
C161 18FZ JR DSPMSG 
H 
j』 meS8a96 a ビ Ga 
C163 0D0A0A20 PRMPT1 :DEFB 0DH, 0AH,0AH, メ x 柏 ? 0 
C167 20202020 
C16B 78232020 
C16F 203F2000 
C173 20202020 PRMPT2:DEFB “ ッ 攻 0 
C177 20792320 
C17B 20203F20 
C17F 00 
C180 7823202F ANSMER:DEFB ^x / y# --> “,0 
C184 20792320 
C188 2D2D3E20 
C18C 00 
) buffer for the first argumen セ も 
Cc18D BUFFER:DEFS 8 
c195 END 
%GC100 
x 柏 ? 20 
ッ 革 ? 6 
x 析 / y 村 --> 3.333333333333333 
x 柱 ? 20 
ッ 柱 ? 3 
x 料 / y 掛 > 6。666666666666667 
x 柱 ? 1 .23456789012345 
アッ 柱 ? 1000 
x 粧 / y 掛 -> 1。23456789012345D-03 
x 柱 ? 300 
ッ ? 300.1 
x 持 / y 柏 >  .999666757409258 
x 柏 っ ) 
ッ 攻 ? 0 


Division by 


0k 


FOO 


197 


2BB7H 文字 列 か ら 倍 精度 実数 型 デ ー タ へ の 変換 





アド レス | 2BB7H 
機 能 | 文字 列 か ら 倍 精 度 実数 型 デ ー タ へ の 変換 
レジ スタ | AFBCDEHL 























解説 | レジ スタ HL に よっ て 指定 する アド レス か ら 格 納 さ れ て いる , キャ 
ラク タ ・ コ ー ド に よる 数 値 デ ー タ を , 倍 精 度 実数 型 の バイ ナリ ・ コ ー ド に 変換 し 
フロ ー テ ィング ・ ア キュ ムレ ー タ (FACC) に 格納 し て も どり ます . 
通常 の デー タ で あれ ば , すべ て 区 別 な く 倍 精度 実数 型 と し て 格納 され , EF 4 
5 H 番 地 に も 倍 精度 実数 型 を 示す 0 8H が 入り ます が , 次 に 掲げ る 諸 条件 の い ず 
れ か を 満た す デ ー タ の み は , 整数 型 ま た は 単 精度 実数 型 の 数 値 と し て 変換 され ま 
す . 
1 ) 先頭 に "&0" また は “&" を 伴っ た 8 進 形式 の デー タ 
2 ) 先頭 に “&H" を 伴っ た 1 6 進 形 式 の デー タ 
3 ) 末尾 に “%" を 伴っ た 整数 型 の デー タ 
4 ) 末尾 に “!" を 伴っ た 単 精度 実数 型 の デー タ 
5 ) “EE” を 伴っ た 指数 形式 の デー タ 
上 記 の 条件 が いずれ も 満た され て いな けれ ば , た と えば “10” で あっ て も 整 
数 型 と は 見 な され ませ ん . “" 1 0 "で あれ ば 整数 型 と な り ま す . 
また , デー タ の 中 に 数 値 に 関係 の な い キ ャ ラク タ ・ コ ー ド (0 0 H を 含む ) が 
存在 する 場合 に は , 直前 の キャ ラク タ ま で が 有効 と な り ま す . 





サン プル 











j』 ーーー inPu モ and display number 一 一 
・ ORG 0C100H 


C100 2140C1 START: LD HL,PROMPT 
C103 CD37C1 CALL DSPMSG 


C106 CD7E1B CALL 1B7EH ) screen edi モ or 

C109 DA665C 1 JP C,5C66H j jump to system monitor i 千 stop key 
C10C 23 INC HL 

C10D CDB72B CALL 2BB7H j※into double precision binary code 
C110 3A4SEF " LD A,(OEF45H ) j ge て type of 千 ]oa モ ing accCumul a モ or 
C113 FE02 CP 02H 

C115 2005 JR _ NZ,NOT2 

C117 214FC1 LD HL,TYPE2 j integer 

C11A 1810 JR DSPLAY 

C11C FE0O4 NOT2: CP 04H 

C11E 2005 JR NZ ,NOT4 

C120 215BC1 LD HL , TYPE4 j Single precision number 
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C123 1807 


C125 FE08 NO 
C127 20D?Z 
C129 2177C1 


JR 


T4: CP 
JR 
LD 


DSPLAY 


08H 
NZ , START 
HL , TYPE8 


C12C CD37C1 DSPLAY:CALL DSPMSG 


C12F CD222D 
C132 CD37C1 


CALL 2D22H 
CALL DSPMSG 


3 1nPu モ a number again if error 
j double precision number 


3j COnver モ into character code 


) display a Characer 


C135 18C9 JR START 
) diisplay message =ubroutine 
1 destroy= : register a ョ , 千 ,h,1 
C137 7E DsPMSGiLD 。A,HL) 
C138 AZ AND A 
C139 C8 RET Z 
C13A CD5702 CALL 0257H 
C13D 23 INC HL 
C13E 18F?7 JR DSPMSG 


で 


C140 0D0A0A61 
C144 206E756D 
C148 62657220 
C14C 3A2000 


C14F 696E7465 TYPE2: DEFB "integer of 


C153 67657220 
C157 6F662000 


C15B 73696E67 TYPE4: 


C1SF 6C652070 
C163 72656369 
C167 73696FeE 
C16B 206E756D 
C16F 62657220 
C173 6F662000 
C177 646F7562 TY 
C17B 6C652070 
C17F 72656369 
C183 7?3696F6E 
C187 206E756D 
C18B 62657220 
C18F 6F662000 


C193 


\GC100 


a number : 333 
double precision 


a number : 3.3 
double precision 


8a number : 3.3! 
single precision 


a number : &h55 
integer of 85 


a number : &O55 
integer of 45 


a number : 3E+5 
ingle precision 


8a number : 


に 3 


me らら 889G 8 ビ G8a 


ROMPT:DEFB 0DH,0AH,0AH,"a number : “,0 


2.0 


DEFB “single precision number of ^,0 


PE8: DEFB “double precision number of ^,0 


END 


number 


number 


number 


number 


of 


of 


of 


of 


333 


3.3 


3・.3 


300000 
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2BBEH 文字 列 か ら 数 値 デ ー タ へ の 変換 





アド レス | 2BBEH 
機能 | 文字 列 か ら 数 値 デ ー タ へ の 変換 
レジ スタ | AFBCDEーー 




















解説 | レジ スタ HL に よっ て 指定 する アド レス か ら 格 納 さ れ て いる , キャ 
ラク タ ・ コ ー ド に よる 数 値 デ ー タ を , 倍 精 度 実数 型 , 単 精度 実数 型 。 また は 整数 
型 の バイ ナリ ・ コ ー ド に 変換 し て フロ ー テ ィング ・ ア キュ ムレ ー タ (F ACC) 
に 格納 し , EF43HH 番 地 に は 型 を 示す 数 値 (0 8 H, 0 4H, また は 0 2 H) 
を 格納 し ます . 

デー タ の 中 に 数 値 に 関係 の な い キ ャ ラク タ ・ コ ー ド (0 0 H を 含む ) が 存在 す 
る 場合 に は , 直前 の キャ ラク タ ま で が 有効 と な り ま す . 


サン プル 








H 
j ーーー 1nput and display number -ーー 


ORG 0C100H 
C100 2140C1 START: LD HL ,PROMPT 
C103 CD37C1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH j SCCeen edi て Oo 
C109 DA66SC JP C,SC66H j jump to system monitor i 千 stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH 3%Conver モ into binary code 
C110 3A45EF " LD A,(OEF45H ) : get type of 千 ] oating accCumul ator 
C113 FE02 CP 02H 
C115 2005 JR NZ,NOT2 
C117 214FC1 LD HL , TYPE2 j integer 
C11A 1810 JR DSPLAY 
C11C FEO4 NOT2: CP 04H 
C11E 2005 JR NZ , NOT4 
C120 215BC1 LD HL,TYPE4 j SB1ngle preciSion number 
C123 1807 JR DSPLAY 
C125 FE08 NOT4: CP 08H 
C127 20D?7 JR NZ , START j inPut a number again i 千 error 
も 29.24 プ イ ビ 1 LD HL , TYPE8 j double precision number 


C12C CD37C1 DSPLAY:CALL DSPMSG 


日 


C12F CD222D CALL 2D22H j COn ソ er モ into character code 
C132 CD37C1 CALL DSPMSG 
C135 18C9 " JR START 


display meSsSsage ら ubCoutine 


ロー …・ 


C137 7E SPMSG :LD A,(HL) 

C138 AZ AND A 

C139 C8 RET Z 

C13A CD5702 CALL 0257H j display a character 
C13D 23 INC HL 
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C13E 18F ァ 7 JR DSPMSG 


me ら 紀 ag6G 8aCGa 


て 


C140 0DOA0A61 
C144 206E7S6D 
C148 62657220 
C14C 3A2000 
C14F 696E7465 TYPE2: DEFB "integer of “,0 
C153 67657220 

C157 6F662000 


ROMPT:DEFB 0DH,0AH,0AH,"a number : 0 


C15B 73696E67 TYPE4: DEFB "single precision number of “ 


C15F 6C652070 
C163 ?2656369 
C167 73696F6E 
C16B 206E756D 
C16F 62657220 
C173 6F662000 


C177 646F7562 TYPE8B: DEFB “double precision number of 「 


C17B 6C652070 
C17F 72656369 
C183 73696F6E 
C187 206E756D 
C18B 62657220 
C18F 6F662000 


C193 END 


\GC100 


a number : 333 
integer of 333 


a number : 333.0 
single precision number of 333 


a number : 33333333333333333333333333333333 
double precision number of 3.333333333333333D+31 


a number : 3 梓 
double precision number of 3 


a number : z80 
integer of 0 


a number : 8086! 
double precision number of 8086 


a number : 333333333333333333333333333333333333333333333333 


Overflou 
Ok 
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2D0BH “ in "と 行 番号 の 出力 

アド レス | 2D0BH 

機能 | “" in "と 行 番号 の 出力 

レジ スタ | AFBCDEHL 

解説 | CRT 画 面 上 の 現 カー ソル 位置 か ら ,、 メッセ ー ジ “ in "を 表示 











後 , きら に レジ スタ HL し に 格納 され た 1 6 ビッ ト の デー タ を 無 符号 の 1 0 進 整数 
と し て 表示 し ます . 
イン タプ リタ で は , プロ グラ ム 中 断 (プレ ー ク ) 時 , エラ ー 発 生 時 等 の , 発生 


行 番号 を 表示 する た め に , 


この シス テム ・ サ プル ー チ ン を 使用 し て いま す . 


また , EB4 9H 番 地 の 出 力 フ ラグ が 0 1H 一 7FH の 場合 に は , プリ ンタ へ 
の 出力 を 行い ます . 


サン プル 





C100 210000 
C103 22A8F0 
C106 3E02 
C108 324SEF 
C10B ES 
C10C CD132D 
C10F E1 
C110 114AC1 
C113 CD41C1 
C116 CD37C1 
C119 DB09 
C11B CB47 
C11D 2806 


C11F 110A00 
C122 19 


C123 18DE 


C125 1163C1 
C128 CD41C1 


C12B CDOB2D 


C12E 1168C1 
C131 CD41C1 


C134 C3665C 
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ーーー 1ncrement ]ine number ーー 
ORG 0C100H 
LD HL ,0 


LOOP: LD (OF0A8H) ,HL H 


LD ば 4 
LD (0EF45H) ,A H 


PUSH HL 
CALL 2D13H 
POP HL 


LD DE,MESAGE 
CALL DSPMSG 


CALL MAIT 
IN A,(09H) 日 
BIT 0,A 日 
JR Z,EXIT H 
LD DE ,10 
ADD HL,DE 
JR LOOP 


EXIT: LD DE , BREAK1 


CALL DSPMSG 
CALL 2D0BH 5 


LD DE , BREAK2 
CALL DSPMSG 


JP SC66H 


いり a1 モ 上 =ubroutine 


destroy= : register 千 。b,c 


initialize line number 


store line number into facc 


display line number 


exi 二 i 千 stop key 


display line number 


Jump 上 to sy5tem moni モ or 


C137 OEFF MAIT: LD  C,OFFH 
C139 06FF MAIT1: LD  B,OFFH 
C13B 10FE UAIT2: DJNZ MAIT2 
C13D 0D DEC C 
C13E 20F9 JR NZ ,MAIT1 
C140 C9 RET 
j display meS5Sage 3ubCoutine 
け destroys= : register a, 和 T。d,e 
C141 1A DSPMSGiLD A,(DE) 
C142 AZ AND A 
C143 C8 RET Z 
C144 CD5702 CALL 0257H j display a character 
C147 13 INC DE 
C148 18F ァ 7 JR DSPMSG 


me89G 8F@Ga 


C14A 20706C65 MESAGE:DEFB "please hit stop key !",0DH,0AH,0 
C14E 61736520 
C152 68697420 
C156 73746F70 
C15A 206B6579 
C15E 20210D0A 
C162 00 
C163 73746F70 BREAK1:DEFB "stop',0 
C167 00 
C168 20212107 BREAK2:DEFB “17470 
C16C 00 
H 


C16D END 


\GC100 

0 please hit stop key ! 
10 please hit stop key ! 
20 please hit stop key ! 
30 please hit stop key ! 
40 please hit stop key ! 
50 please hit stop key ! 
60 please hit stop key ! 
70 please hit stop key ! 
80 please hit stop key ! 
20 please hit stop key ! 
100 please hit stop key ! 
110 please hit stop key ! 
120 please hit stop key ! 
130 please hit stop key ! 
140 please hit stop key ! 
150 please hit stop key ! 
160 please hit stop key ! 
170 please hit stop key ! 
180 please hit stop key ! 
190 please hit stop key ! 
200 please hit stop key ! 
210 please hit stop key ! 
ョ top in 210 !! 

※ 
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2D13H 行 番号 の 出力 





アド レス 








機 


能 





レジ スタ 








解 





説 








2D13H 
行 番号 の 出力 
AFBCDEHL 


レジ スタ HL し に 格納 され た 1 6 ビッ ト の デー タ を , 無 符号 の 1 0 進 


整数 と し て , C RT 画面 上 の 現 カ ー ソ ル 位 置 に 表示 し ます ., 
イン タプ リタ で は , 行 番号 の 表示 等 に , この シス テム ・ サ ブル ー チ ン を 使用 し 
て いま す . 


ま た , 


EB4 9H 番 地 の 出力 フラ グ が 0 1H 一 7FH の 場合 に は ,、 プリ ンタ へ 


の 出力 を 行い ます . 





C100 
C103 


C106 
C108 
C10B 
C10D 
C110 
C112 
C115 
C117 


C11A 
C11B 
C11E 


C11F 
C121 
C124 
C126 
C129 
C12C 
C12D 
C12E 
C12F 
C132 
C134 
C136 


C139 
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サン プル 


210000 
CD44C1 


3E48 
CD5702 
3E20 
CDS702 
3E3D 
CDS702 
3E20 
CDS702 


ES 
CD132D 
E1 


3E0D 
CD5702 
3E0A 
CDS702 


CD3BC1 
23 

7C 

BS 
CA665C 
DB09 
CB4?7 
CA665C 


18C8 


j ーーー display numberS ぃ ith 上 ぃ uo byte5 ーー 一 
ORG 0C100H 
LDH HL,0 
LOOP: CALL DSPHL ) display hexa decimal 


LD AH" 

CALL 0257H 

CALL 0257H 

LD 。 A。 = 

CALL 0257H 

CALL 0257H 

PUSH HL 

CALL 2D13H :※display as unsigned decimal numbeC 
POP HL 


LD A,0DH 
CALL 0257H 


CALL 0257H 


CALL MAIT uai モ a momen モ 


INC HL incremen the number 


LD AH 
OR L 
JP Z,5C66H 


check end or no 


IN A,(09H) H 
BiT 0,A : jump to sy5tem moni モ or i 千 sop key 
JP Z ,5C66H H 


JR LOOP j and repea モ 


j いり a1 SubCOu モ ine 


C13B 
C13E 
C13F 
C140 
C141 
C143 


C144 
C145 
C148 


C149 
C14A 
C14B 
C14C 
C14D 
C14E 
C151 


C152 
C154 
C156 
C158 


C15A 
C15C 
C1S5F 


C160 


※5C10 
0000H 
0001H 
0002H 
0003H 
0004H 
0005H 
0006H 
0007H 
0008H 
0009H 
000AH 
000BH 
000CH 
000DH 
000EH 
000FH 
0010H 
0011H 
0012H 
0013H 
0014H 
0015H 


※ 


01FFFF 
OB 

78 

B1 
20FB 
C9 


7C 
CD49C1 
7D 


47 
OF 
OF 
OF 
OF 
CDS52C1 
78 


E60F 
FE0A 
3802 
C60?7 


C630 


CD5702 
C9 


0 


やら の O へ ひい ひ ロ の いい ビ の 


上 目 目 目 昌明 目 昌和 目 昌 昌 昌 肖 目 目 上 昌 卓上 日 昌 
は 
〇 


MAIT: LD 
MAIT1: DEC 


ロー ーー ーー 


LD 
OR 
JR 
RET 


BC,0FFFFH 
BC 

A,B 

9 

NZ ,MAIT1 


display hexa decimal number in register hl subroutine 


1npu て 5 


the number in register hl 


destCoyS : register a げ 。b 


SPHL: LD 


CALL 
LD 


H 
DSPACC:LD 


RRCA 
RRCA 
RRCA 
RRCA 
CALL 
LD 


HALF: AND 


CP 
JR 
ADD 


NUMBER:ADD 


CALL 
RET 


END 


A,H 
DSPACC 
AL 


B,A 


HALF 
AB 


OFH 

10 
C,NUMBER 
A 7 


A,30H 
0257H j display a character 
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2D22H 数 値 デ ー タ か ら 文 字 列 へ の 変換 





アド レス | 2D22H 
機 能 | 数 値 デ ー タ か ら 文 字 列 へ の 変換 
レジ スタ | AFBCDEHL 











解 説 | EF45H 番 地 に 格納 され た 数 値 デ ー タ の 型 を 示す 数 値 (0 2 H, 
0 4 H, また は 0 8 H) に より , フロ ー テ ィング ・ ア キュ ムレ ー タ (F ACC) 
に 格納 され て いる バイ ナリ 形式 の 数 値 デ ー タ を キャ ラク タ ・ コ ー ド の 文字 列 に 変 
換 し て , F 0 B7H 番 地 か ら 始 まる 変換 バッ ファ に 格納 し , デー タ の 未 尾 に 0 0 
HH (データ ・ エ ンド ・ マ ー ク ) を 付け 加え ます . 

リタ ー ン 時 に は , 文字 列 の 先頭 アド レス が レジ スタ HL し に 入り ます . 
具体 的 に は アキ ュ ム レー タ に 0 0 H を 入れ て (フリ ー・ フ ォ ー マ ッ ト を 指定 ) 
2D 2 3H 番 地 に エン トリ し ます . 





H 
ーーー input and display a number free forma 一 


ORG 0C100H 

C100 212AC1 START: LD HL , PROMPT 
C103 CD21C1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH ) Screen edi モ or 
C109 DA665C JP C,5C66H j jump to system monitor if stop key 
C10C 23 ・ INE HL 
C10D CDBE2B CALL 2BBEH 3j conver セ in も to binary code 
C110 CD222D - CALL 2D22H :X※conver facc into character code 
C113 E5 6 PUSH HL 
C114 213BC1 LD HL , ANSUER 
C117 CD21C1 CALL DSPMSG 
C11A E1 POP HL 
C11B CD21C1 CALL DSPMSG j display the number 
C11E C300C1 " JP START 

) disp]l ay me=8age ほら ubCOu モ ine 

H 

$ destroys= : register a,fF,h,1 
C121 7E DSPMSG:LD A,(HL) 
C122 AZ AND A 
C123 C8 RET Z 
C124 CD5702 CALL 0257H j display a characer 
C127 23 INC HL 
C128 18F?7 JR DSPMSG 


日 
? me= ら agG 8a じ Ga 


C12A 0D0A0A61 PROMPT :DEFB 0DH,0AH,0AH, "any number ? 0 
C12E 6E79206E 
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C132 
C136 
C13A 
C13B 
C13F 
C143 
C147 


C149 


%GC1 
any 
the 


any 
the 


any 
the 


an ツ 
the 


8 ロメ 
the 


8 ロメ 
the 


8 ロメ 


756D6265 
72203F 20 

00 

74686520 ANSUER:DEFB "the number : ^,0 
6E756D62 
6572203A 

2000 

ENO 

00 

number ? 5 

number : 5 
number ? 5.5 
number : 5.5 
number ? 5 欄 
number : 5 
number ? &ha 
number : 10 
number ? &o777 
number : 511 
number ? 1.12345 
number : 1.12345 
number ? 
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2D23H 数 値 か ら 有 フォ ー マ ッ ト 文 字 列 へ の 変換 





アド レス | 2D23H 
機能 | 数 値 か ら 有 有 フォー マッ ト 文 字 列 へ の 変換 
レジ スタ | AFBCDEHL 























解 説 | EF45H 番 地 に 格納 され た 数 値 デ ー タ の 型 を 示す 数 値 (0 2 H, 
0 4 H, また は 0 8H) に より , フロ ー テ ィング ・ ア キュ ムレ ー タ (FACC) 
に 格納 され て いる バイ ナリ 形式 の 数 値 デ ー タ を キャ ラク タ ・ コ ー ド の 文字 列 に 変 
換 し て , FOB7H 番 地 か ら 始 まる 変換 バッ ファ に 格納 し . デー タ の 末尾 に 0 0 
H (デー タ ・ エ ンド ・ マ ー ク ) を 付け 加え ます . 
リタ ー ン 時 に は , 文字 列 の 先頭 アド レス が レジ スタ 本 上 し に 入り ます . 
この シス テム ・ サ ブ プルー チン で は , 文字 列 デ ー タ の 生成 時 に 様々 な フォ ー マ ッ 
ト を 指定 する こと が で きる た め , BASIC に お ける PRINT USING, 
LPRINT USING, また FORTRAN に お ける FORMAT, な ど と 
同等 の 機能 を 比較 的 容易 に 実現 する こと が で きま す . 
フォ ー マ ッ ト の 指定 は , アキ ュ ム レー タ お よび レジ スタ B, レジ スタ C に パラ 
メー タ を 与え て 行い ます が , 以下 に それ ぞ れ の パラ メー タ の 意味 を 示し ます . 
@ ア キュ ムレ ー タ 
第 7 ビッ ト …… フォ ー マ ッ ト の 指定 を 行う か 否 か を 指定 し ます . すなわち , 
この ビッ ト が 0 の 場合 に は 以下 の フォ ー マ ッ ト 指 定 は すべ て 無 意 味 な も 
の と な り ま す . 
第 6 ビッ ト …… この ビッ ト を 1 に セッ ト し た 場合 , 数 値 の 整数 部 が 3 桁 毎 に 





第 5 ビット …… この ビッ ト を 1 に セッ ト し た 場合 , 数 値 領域 の 左側 に 空白 部 
分 が で きた と き , そこ を “*” で 埋め ます . 

第 4 ビッ ト …… この ビッ ト を 1 に セッ ト し た 場合 , 数 値 の 直前 に “\*" を 付 
け 加 えま す . 

第 3 ビッ ト …… この ビッ ト を 1 に セッ ト し た 場合 , 数 値 が 負 の と き の “ー" 
だ け で な く , 数 値 が 正 の と き の “+" も 付け 加え ます . 

第 2 ビッ ト …… この ビッ ト を 1 に セッ ト し た 場合 "パー" または“+" を 数 値 
の 直後 に 付け 加え ます . 

第 0 ビット …… この ビッ ト を 1 に セッ ト し た 場合 数 値 は 指数 形式 で 変換 さ 
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@ レジ スタ BB 


小数 点 よ り 左 ( 束 


@ レ ジス タ C 
小数 点 の た め の フ ィ ー ル ド 1 桁 分 を 含む , 小数 点 より 右 (小数 部 分 ) の 桁 数 


を 指定 


指定 し た 領域 より 数 値 の 桁 数 が 大 きい 


し ます . 


場合 


部 分 ) の 桁 数 を 指定 し ます . 指定 し た 桁 数 より 数 値 の 桁 
数 が 小さ い 場 合 に は , 右 づ め に な り ま す . 


数 値 の 直前 に “ 多 " が 付け 加え ら 


れ ま す . 数 値 の 丸め が 領域 より 大 きく な る 原因 と な っ た 場合 も , 丸め た 数 値 の 前 
に “ 多 ” が 付加 され ます . 





サン プル 











C100 21D8C1 
C103 CDCFC1 
C106 CD7E1B 
C109 DA665C 
C10C 23 

C10D CDBE2B 


C110 AF 
C111 SF 


C112 21F3C1 
C115 CDCFC1 
C118 CD7S0F 
C11B CD5702 
C11E CBEF 
C120 FE79 
C122 C2BDC1 
C125 CBFB 


C127 210CC2 
C12A CDCFC1 
C12D CD750F 
C130 CD5702 
C133 CBEF 
C135 FE79 
C137 2002 
C139 CBF3 


C13B 2126C2 
C13E CDCFC1 
C141 CD750F 
C144 CDS702 
C147 CBEF 
C149 FE79 
C14B 2002 
C14D CBEB 


C14F 2140C2 
C152 CDCFC1 
C155 CD750F 
C158 CD5702 


j ーーー PFin モ u5ing te program 


の 


TART: 


COMMa: 


ASTER: 


YEN: 


ORG 0C100H 


input a number section 


LD HL ,PRIMPT1 
CALL DSPMSG 
CALL 1B7EH 

JP C,SC66H 
INC HL 

CALL 2BBEH 


Prin uSing Section 


XOR A 
LD  E,A 


LD HL,PRMPT? 
CALL DSPMSG 
CALL OF75H 
CALL 0257H 

SET 5,A 

CP  y" 

JP NZ,DSPLAY 
SET 7,E 


LD HL,PRMPT6 
CALL DSPMSG 
CALL OF75H 
CALL 0257H 

SET 5,A 

お に 、、 だ 

JR NZ,ASTER 
SET 6,E 


LD HL , PRMPT5 
CALL DSPMSG 
CALL OF75H 
CALL 0257H 

SET 5,A 

CP 4 

JR NZ , YEN 
SET 5,E 


LD HL ,PRMPT4 
CALL DSPNMSG 
CALL OF75H 
CALL 0257H 


Screen edi モ or 
Jump to system moni モ or i 千 stop key 


coOnver into binary code 


clear accumul a モ or 
clear register e 


uing ? 
inpu a character from keyboard 
echo-back a character 


One ino smal 1 letter 


display in free format 
display in not free forma セ 


commas ? 
inpu モ a character from keyboard 
echo-back a characer 


conver モ into smal 1 letter 


not display commas 
display commas 


asterigk ? 
inPu モ a character 和 from keyboard 
echo-back a character 


conver セ モ into smal 1 letter 


not display asterisks 
display asterisks 


yen mark ? 


inpu モ a charac モ er from に Keyboard 
echo-back a character 
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C15B 
C15D 
C1SF 
C161 


C163 
C166 
C169 
C16C 
C16F 
C171 
C173 
C175 


C17? 
C17A 
C17D 
C180 
C183 
C185 
C187 
C1892 


C18B 
C18E 
C191 
C194 
C19?7 
C199 
C192B 
C19D 


C19F 
C1A2 
C1A5 
C1A8 
C1AB 
C1AD 


C1AE 
C1B1 
C1B4 
C1BZ 
C1BA 
C1BC 


C1BD 
C1BE 
C1C1 
C1C2 
C1C5 
C1C8 
C1C9 


C1CC 


C1CF 
C1D0 
C1D1 
C1D2 
C1DS 
C1D6 


C1D8 
C1DC 
C1E0 
C1E4 
C1E8 
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CBEF 
FE79 
2002 
CBE3 


215AC2 
CDCFC1 
CD750F 
CDS702 
CBEF 
FE79 
2002 
CBDB 


2174C2 
CDCFC1 
CD750F 
CDS702 
CBEF 
FE79 
2002 
CBD3 


218EC2 
CDCFC1 
CD?7S0F 
CD5702 
CBEF 
FE79 
2002 
CBC3 


21A8C2 
CDCFC1 
CD7S0F 
CD5702 
D630 
47 


21C2C2 
CDCFC1 
CD750F 
CD5702 
D630 
4F 


7B 
CD232D 
ES 
21DCC2 
CDCFC1 
E1 
CDCFC1 


C300C1 


7E 
AZ 
C8 
CD5702 


18F?7 


0D0A0A61 
6E79206E 
756D6265 
72202020 
20202020 


PLUS: 


SIGN: 


INDEX 


LEFT: 


RIGHT 


DSPLA 


ロロ ーー ーー …ー 


SPMS 


で …・ < 


SET 
CP 
JR 
SET 


LD 
CALL 
CALL 
CALL 
SET 
CP 
JR 
SET 


LD 
CALL 
CALL 
CALL 
SET 
CP 
JR 
SET 


: LD 
CALL 
CALL 
CALL 
SET 
CP 
JR 
SET 


LD 
CALL 
CALL 
CALL 
SUB 
LD 


: LD 
CALL 
CALL 
CALL 
SUB 
LD 


YiLD 
CALL 
PUSH 
LD 
CALL 
POP 
CALL 


JP 


5,A 

NZ ,PLUS 
4,E 
HL ,PRMPT3 
DSPMSG 
0F75H 
0257H 

5.4 


ン 
NZ,SIGN 
3,E 


HL , PRMPT2 
DSPMSG 
0F75H 
0257H 
5,A 


メン 
NZ , INDEX 
2,E 


HL ,PRMPTO 
DSPMSG 
0F?7SH 
0257H 

5,A 


4 
NZ,LEFT 
0,E 


HL ,PRMPTL 
DSPMSG 
OF7S5H 
0257H 

07 

B,A 


HL ,PRMPTR 
DSPMSG 
0F75H 
0257H 

707 

C,A 


AE 

2D23H 

HL 

HL , ANSMER 
DSPMSG 

HL 
DSPMSG 


START 


display message SubCoutine 


CoOnver 上 into small ]et て er 


not display yen mark 
display yen mark 


plus mark ? 
inpu モ a character from keyboard 
echo-back a character 


convert into small letter 


not display plus mark 
display plus mark 


sign ? 
input a character from keyboard 
echo-back a character 


で On い ve in セ to mall letter 


not display sign after a number 
display sign after a number 


index format ? 
inpu モ a character 和 from keyboard 
echo-back a character 


で Onver モ into small letter 


no 。 in index format 
in index forma セ 


left of point ? 

input a character from keyboard 
echo-back a character 

convert a character into binary 
right of point ? 

input a character- from keyboard 


echo-back a character 
CoOnver モ a character into binary 


Se 上 the mo inportan 七 agumen セ も 


3※Conver facc into character code 


H 


display the number 


destroy= : regi=ter af げ ,h,1 


GLD 
AND 
RET 
CALL 
INC 
JR 


A,(HL) 
Aa 

Z 
0257H 
HL 
DSPMSG 


meG き 89 ど G 8 じ G8 


RMPT1 :DEFB 0DH,0AH,0AH, “any 


display a character 


number ? 40 


C1EC 
C1F0 


C1F3 
C1F7 
C1FB 
C1FF 
C203 
C207 
C20B 
C20C 
C210 
C214 
C218 
C21C 
C220 
C224 
C226 
C22A 
C22E 
C232 
C236 
C23A 
C23E 
C240 
C244 
C248 
C24C 
C250 
C254 
C258 
C25A 
C2SE 
C262 
C266 
C26A 
C26E 
C272 
C274 
C278 
C27C 
C280 
C284 
C288 
C28C 
C28E 
C292 
C2926 
C29A 
C29E 
C2A2 
C2A6 


C2A8 
C2AC 
C2B0 
C2B4 
C2B8 
C2BC 
C2C0 
C2C2 
C2C6 
C2CA 
C2CE 
C2D2 
C2D6 
C2DA 


C2DC 
C2E0 
C2E4 
C2E8 
C2EC 
C2F0 


20202020 
3F2000 


00757369 
6E672028 
79292020 
20202020 
20202020 
20203F20 
00 
0D0A636F 
6D6D6173 
20287929 
20202020 
20202020 
2020203F 
2000 
0D0A6173 
74657269 
736B7320 
28792920 
20202020 
2020203F 
2000 
0D0A7965 
6E206D61 
726B2028 
79292020 
20202020 
2020203F 
2000 
0D0A706C 
7573206D 
61726B20 
28792920 
20202020 
2020203F 
2000 
0D0A7369 
676E2028 
79292020 
20202020 
20202020 
2020203F 
2000 
0D0A6926E 
64657820 
666F726D 
61742028 
79292020 
2020203F 
2000 


000A6C65 
6674206F 
6620706F 
6926E7420 
28302D39 
2920203F 
2000 

0D0A7269 
67687420 
SF662070 
6F626E74 
2028302D 
3929203F 
2000 


0D0A7468 
65206E75 
6D626572 
20202020 
20202020 
2020203A 


PRMPT7:DEFB 


PRMPT6:DEFB 


PRMPTS:DEFB 


PRMPT4:DEFB 


PRMPT3:DEFB 


PRMPT2:DEFB 


PRMPT0 iDEFB 


PRMPTL:DEFB 


PRMPTR:DEFB 


ANSUER : DEFB 


0DH, ^using (y) 


0DH,0AH, "commas (y) 

0DH, 0AH, ^asterisks (y) 

0DH, 0AH, "yen mark (y) 

0DH, 0AH, ^plus mark (y) 

0DH, 0AH, "sign (y) 

0DH, 0AH, ^index format (y) 
0DH, 0AH, "1eft of point (0-9) 
0DH, 0AH, "right of point (0-②) 
0DH, 0AH, "the number 


? 0 
? 40 
? 0 
? 0 
の - 30 
? 0 
が 350 
の 0 
? 7。0 
5 0 


211 


C2F4 2000 
C2F6 END 


\GC100 


any number 

using (y) 

comma= (y) 
asterisks (y) 

yen mark (y) 

plus mark (y) 

Sign (y) 

index format (y) 
left of point (0-②) 
right of point (0-9) 
the number 


1234 .56789 


… つつ や や つつ つや つや 


氷 O 〇 OO コ つく くく くく さく 


※※\1 , 234 、57+ 
any number 2876 .54321 
using (y) 

commaSs ( ッ ) 

asterisks (y) 

yen mark (y) 

plus mark (y) 

ign (y) 

index format (y) 
1eft of point (0-9) 
right of point (0-9) 
the number 


"やや や や や や や つや ざ ざ 
ひら つの O く つつ つつ っ さく 


28765432.10000000D-04 
1234 .5 


n 


1234 .5 


any number 
using ( ッ y) 
the number 


… つ やや 


any number 330044005500# 
usino (y) 

commas (y) 

asterisks (y) 

yen mark (y) 

plus mark (y) 

ョ ign ( ッ y) 

index format (y) 
left of poin よ (0-②) 
right of point (0- ら ) 
the number 


… や ざ や や や やや つや やつ 
ヾ 〇 の 0 つく くく くく べく 


\330 ,044,005,500+ 


any number z80 
using (y) n 
the number : 0 


や ざ 


any number 


3 
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309FH 無 符号 整数 デー タ か ら 文 字 列 へ の 変換 





アド レス | 309FH 
機能 | 無 符号 整数 デー タ か ら 文 字 列 へ の 変換 
レジ スタ | AFBC- 一 日 し 























解 説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 整数 型 の 数 値 デ ー タ 
を , 5 桁 の 無 符号 1 0 進 整数 と し て キャ ラク タ ・ コ ー ド の 文字 列 に 変換 し 。 レジ 
スタ H し に よっ て 指定 する アド レス か ら 格 納 し ます . 

た だ し , ゼロ ・ サ プレ ス は 行わ ず , レジ スタ C が 1 の と き に は “" ," を 付加 し , 
レジ スタ B が 1 の と き に は 先頭 に “ ." を 付加 し ます . 


サン プル 








ji ーーー display number5 いり i モ th tuo byteS ーー 一 


ORG 0C100H 
C100 0648 LD B,72 H 
C102 0OE19 LD C,25 ij Set 72 characters and 25 lines 
C104 CD3A09 CALL 093AH 
C107 0606 LD B,6 
C109 217AC1 TITLE1:LD HL,MESAGE 
C10C CD71C1 CALL DSPMSG 
C10F 10F8 DJNZ TITLE1 
C111 0648 LD  B,72 
C113 3E2D LD 。 Aー ゾ ーー 
C115 CD5702 TITLE2:CALL 0257H 
C118 10FB DJNZ TITLE2 
Ct1A 210000 LD HL,O jinitialize the number 
C11D CD55C1 LOOP: CALL DSPHL j display hexa decimal 
C120 3E20 - EDD、 AP 
C122 CD5702 CALL 0257H 
C125 E5 ・ PUSH HL 
C126 22A8F0 1 LD (0F0A8H) ,HL H 
C129 3E02 LD A,2 : get the number into facc 
C12B 3245EF LD (0EF45H ) , A け 
C12E 2100ED 6 LD HL ,0ED00H 』 uSe inpu モ buffer of basic 
C131 010000 LD BC,0000H 
C134 CD9F30 CALL 309FH 3※COnVer 革 into decimal ら =t ト Cing 
C137 2100ED LD HL , 0ED00H ij uSe input buFffer of basic 
C13A CD71C1 CALL DSPMSG 
Cc13D E1 POP HL 
C13E 3E20 Y ED As 
C140 CD5702 CALL 0257H 
C143 CD5702 CALL 0257H 
C146 23 INC HL : incremen the number 
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C14? 
C148 
C149 


C14C 
C14E 
C150 


C153 


C155 
C156 
C159 


C15A 
C15B 
C15C 
C15D 
C1SE 
C1SF 
C162 


C163 
C165 
C167 
C169 


C16B 
C16D 
C170 


C171 
C172 
C173 
C174 
C177 
C178 


C17A 
C17E 
C182 
C186 


C187 
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7C 
B5 
CA665C 


DB09 
CB47 
CA665C 


18C8 


7C 
CDSAC1 
7D 


47 
OF 
OF 
OF 
OF 
CD63C1 
78 


E60F 
FE0A 
3802 
C607 


C630 
CD5702 
C9 


7E 
AZ 
C8 
CD5702 


18F7 


6865782E 
20206465 
632E2020 
00 


check end or no 


jump to system monitor if stop key 


jump to loop if not stop key 


number in register hl subroutine 


display a characer 


LD 日 日 
OR に H 
JP Z,5C66H H 
・ IN A,(09H) H 
BIT 0,A H 
Jg Z,5C66H 
JR LOOP け 
j display hexa decimal 
H 1nput= : number in register hl 
H destroy= : register a, 千 も 
DSPHL: LD AH 
CALL DSPACC 
LD AL 
H 
DSPACC:LD B,A 
RRCA 
RRCA 
RRCA 
RRCA 
CALL HALF 
LD  A,B 
HALF: AND OFH 
CP 10 
JR C,NUMBER 
ADD AaA,7 
NUMBER:ADD  A,30H 
CALL 0257H 日 
RET 


ロー ーー 


ISPMSG:LD 
AND 
RET 
CALL 
INC 
JR 


エー ーー 


ESAGE : DEFB 


END 


A,(HL ) 
A 
Z 
0257H 
HL 
DSPMSG 


me=8896G 8PG8a 


"hex. dec・ 


display message Subroutine 


^.0 


display a character 


* 6C100 
hex・ 


00090 
00096 
00102 
00108 
00114 
00120 


00079 
00085 
00091 
00097 
00103 
00109 
00115 
00121 


00015 
00021 
0002?7 
00033 
00039 
00045 
00051 
0005? 
00063 
0006 ヶ 
00075 
00081 
0008? 
00093 
00099 
00105 
00111 
0011?7 


00005 
00011 
00017 
00023 
00029 
00035 
00041 
0004? 
00053 
00059 
00065 
00071 
00077 
00083 
00089 ヶ 
00095 
00101 
0010? 
00113 
00119 
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31A1H 平方 根 の 計算 


アド レス | 31A1H 
機能 | 平方 根 の 計算 


レジ スタ | AFBCDEHL 





[解説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 単 精度 型 実 数 の , 平 
方 根 の 値 を 求め , 同じ く フ ロー ティ ング ・ ア キュ ムレ ー タ に 与え て も どり ます . 
フロ ー テ ィング ・ ア キュ ムレ ー タ に 与え た 入力 パラ メー タ が 負数 の 場合 に は , 
“Illegal function call'" エラ ー が 発生 し イン タプ リタ の 制御 下 に 入り ます . 


サン プル 





ーーー qr function te PFogtam 一 一 


ORG 0C100H 
C100 213AC1 START: LD HL,PROMPT 
C103 CD31C1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH j Screen editor 
C109 DA665C JP C,SC66H : sy ョ tem monitor if stop key 
ct0C 23 INC HL 
C10D E5 PUSH HL 
C10E CDBE2B CALL 2BBEH ) convert into binary code 
C111 CDB327 CALL 27B3H j convert into single precision 
C114 CDA131 CALL 31A1H 3%※sqr Tunction 
C117 CD222D CALL 2022H : convert into character code 
C11A EB ・ EX DE ,HL : top address of resu]lt in reg-de 
C11B 2148C1 LD HL,ANS1 
C11E CD31C1 CALL DSPMSG 
C121 E1 2 POP HL : top address of a input number 
C122 CD31C1 CALL DSPMSG ) display a input number again 
Cc125 2154C1 LD 。 HL,ANS2 
C128 CD31C1 CALL DSPMSG 
C12B EB | EX DE ,HL : top address of result in reg-h1 
C12C CD31C1 CALL DSPMSG j display reault 
C12F 18CF " JR START 

: display message Subroutine 

C131 7E DSPMSG:LD 。A,〈HL) 
C132 AZ AND A 
C133 C8 RET Z 
C134 CD5702 CALL 0257H ) display a Charace し 
C137 23 INC HL 
C138 18F7 JR DSPMSG 


me=889 ど 8 ビ @8 


で ーー 


C13A 0DOA6120 
C13E 6E756D62 
C142 6572203F 


ROMPT:DEFB 0DH,0AH,"a number ? “,0 
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C146 2000 
C148 20202020 ANS1: DEFB “ ョ qr ( “,0 
C14C 20737172 
C150 20282000 
C154 20292069 ANS2: DEFB “ ) is equal to “,0 
C158 73206571 
C15C 75616C20 
C160 746F2000 
H 

C164 END 
\GC100 
a number ? 0 

sqr ( 0 ) is equal to 0 
8a number ? 1 

sqr ( 1 ) is equal to 1 
8a number ? 2 

qr ( 2 ) is equal to 1。,41421 
a number ? 4 

sqr ( 4 ) is equal to 2 
a number ? 400 

sqr ( 400 ) is equal to 20 
a number ? 1000000000000000 

sqr ( 1000000000000000 ) is equal to 3.16228E+0 ァ 7 
8a number ? 100000000 

sqr ( 100000000 ) is equal to 10000 
a number ? 0.09 

ョ qr ( 0.09 ) is equal to .3 
8 number ? abc 

sqr ( abc ) is equal to 0 
a number ? -1 


I11egal funct 


0k 


ion call 


217 


31F3H e に 対す る 指数 関数 の 計算 





アド レス | 31F3H 


機 能 | e に 対す る 指数 関数 の 計算 
レジ スタ | AFBCDEHL 











[解説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 単 精度 型 実 数 の , 自 
然 対数 の 底 e に 対す る 指数 関数 の 値 を 求め , 同じ く フ ロー ティ ング ・ ア キュ ムレ 
ー タ に 与え て も どり ます . 

フロ ー テ ィング ・ ア キュ ムレ ー タ に 与え る 入力 パラ メー タ が , 87.33655 
より 大 きい 場合 に は , “Overflow" エラ ー が 発生 し ます . 


サン プル 








ーーー exP func モ ion teB 七 PCOgtam 一 一 


ORG 0C100H 

C100 213AC1 START : LD HL ,PROMPT 
C103 CD31C1 CALL DSPMSG 

H 
C106 CD7E1B CALL 1B7EH j Screen edi モ or 
C109 DA66SC JP C,5C66H ) system monitor if stop key 
C10C 23 INC HL 
C10D E5 PUSH HL 
C10E CDBE2B M CALL 2BBEH 3 Conver into binary code 
C111 CDB327 CALL 27B3H j convert into single precision 
C114 CDF331 CALL 31F3H jXexp function 
C117 CD222D CALL 2D22H j convert into character code 
C11A EB 1 EX DE ,HL j top address of result in reg-de 
C11B 2148C1 LD HL,ANS1 
C11E CD31C1 CALL DSPMSG 

H 
C121 E1 POP HL : top address of a input number 
C122 CD31C1 CALL DSPMSG j display a input number again 
C125 2154C1 LD HL,ANS2 
C128 CD31C1 CALL DSPMSG 
C12B EB EX DE ,HL j top address of result in reg-h1 
C12C CD31C1 CALL DSPMSG ) display resul モ 
C12F 18CF - JR START 

: disp]l ay message 3ubCoutine 
C131 7E DSPMSG:LD 。A,HL) 
C132 AZ AND A 
C133 C8 RET Z 
C134 CD5702 CALL 0257H j display a character 
C137 23 INC HL 
C138 18F? JR DSPMSG 


me きき 8g ど 8 じ で 8 
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C134 0D0A6120 PROMPT:DEFB 0DH,0AH,“a number ? ^,0 
C13E 6E756D62 
C142 6572203F 


C146 2000 


C148 20202020 ANS1: DEFB “ exp ( “』0 
C14C 20657870 

C150 20282000 

C154 20292069 ANS2: DEFB " ) is equal to “,0 
C158 73206571 

C15C 75616C20 

C160 746F2000 


C164 


6C100 


a number 
exP 
a number 
eXP 
8 number 
XP 
8 number 
exP 
8 number 
eXP 
a number 
eXP 
ョ a number 
XP 
a number 
exPp 
a number 
XP 
8 number 
Overf1lou 
0k 


ぐう へ つつ へ つつ へ ぐつ へ つつ へ つ へ ぐつ へ うつ へ やつ へ うふ 


END 


0.001 

0.001 ) is equal to 1.001 
1 

1 ) is equal to 2.71828 
2 

2 ) is equal to 7.38906 
3 

3 ) is equal to 20.0855 
4 

4 ) is equal to 54.5982 
5 

5 ) is equal to 148.413 
abc 

abc ) is equal to 1 

0 

0 ) is equal to 1 

87 


87 ) is equal to 6.07601E+37 
88 
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3283H 乱数 の 発生 





アド レス | 3 283H 
機 能 | 乱数 の 発生 
レジ スタ | AFBCDEHL 

















[解説 | 0 以上 1 未満 の 乱数 を 単 精度 型 の 実数 と し て 発生 し , フロ ー テ ィ ン 
グ ・ ア キュ ムレ ー タ に 与え て も どり ます . 

発生 する 乱数 は , BASIC の RUN お よび CLEAR が 実行 され る ご と に 同 
系 列 を と り , フロ ー テ ィング ・ ア キュ ムレ ー タ に 与え る 単 精度 実数 型 の 入力 パラ 
メー タ に よっ て つぎ の よう に 異な り ま す . 

パラ メー タ が 負 の 場合 , 新しい 乱数 系 列 を 設定 し ます . 

パラ メー タ が 0 の 場合 。 1 つ 前 に 発生 し た 乱数 の 値 を と り ま す . 

パラ メー タ が 正 の 場合 , つぎ の 乱数 を 発生 し ます . 


サン プル 








ーーー generate and display random numbers ーー 


ORG 0C100H 
C100 2131C1 LD HL,TITLE 
C103 CD28C1 CALL DS"MSG 
C106 0664 ・ LD B,、00 j 8aPPoint loop counter 

H 

C108 C5 LOOP: PUSH BC 
C109 210000 LD HL,0 
C10C 22A8F0 LD (OF0A8H) ,HL H 
C10F 2681 LD H,81H j set single precision of 1 
C111 22AAFO LD (OFOAAH) ,HL H into 千 ] oating acCumul aor 
C114 3E04 LD Aa,04 H 
C116 324S5EF LD (0EF45H) ,A H 
C119 CD8332 CALL 3283H 53Xrnd function 
C11C CD222D 1 CALL 2D22H : で On ひ eF モ in モ o character code 
C11F CD28C1 CALL DSPMSG j display a random number 
C122 C1 5 POP BC 
C123 10E3 DJNZ LOOP 
C125 C3665C JP 5C66H j) jump to system monitor'= entr ッ 


) diaplay mesage SubCoutine 


H 

C128 7E DSPMSG:iLD Az,(HL) 

C129 AZ AND A 

C12A C8 RET Z 

C12B CD5702 CALL 0257H j display a ChaFac こ 上 e ビ 
C12E 23 INC HL 

C12F 18F ァ 7 JR DSPMSG 


H 
: me らら age 8a し Ga 


220 


C131 2D2D2D20 TITLE: DEFB “--- random numbers ---",ODH,0AH,0 


C135 72616E64 
C139 6F6D206E 
.C13D 756D6265 
C141 7273202D 
C145 2D2D0D0A 
C149 00 


C14A END 


\GC100 
ーーー random numbers ーー 
・585608 .208326 .748217 .863982 .30259 
・26881 1 .259876 .630002 .507997 .23225 . 
0612217 .744806 .628905 .138237 .0923359 
・521203 .294037 .496946 .205632 .515778 
・0356391 .982939 .719593 .705331 .60776 
・0206582 .449692 .0950858 .750213 .8021 
33 ・674913 .377068 ,.549213 .344769 .4641 
12 .717874 .279036 .209502 .256304 .6890 
23 .0764643 .600416 .824226 .845947 .224 
268 .672405 .0823059 .809365 .168721 .73 
5916 .422197 .741722 .558669 .1714 .6155 
55 .793136 .625767 .749037 .811342 .6351 
47 .332455 .538262 .42986 .929347 .53015 
7 .69302 .173859 .659925 ,781217 .131739 
・229435 .065044 .172119 、575302 .898291 
・0123984 、0?722502 .507155 .817158 .8019 
66 ・0600475 .423976 .216693 .345024 .127 
256 .302549 .576178 .41059? .941808 .594 
264 .263846 .446635 .68406 .0927208 .15? 
349 .440018 .627279 .735533 .863298 .085 
1214 
※ 
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32F6H 余弦 (コサイン) の 計算 


32F6H 
能 | 余弦 (コサイン ) の 計算 


機 


解説 





AFBCDEHL 


フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 上 単 精度 型 実数 の 単位 


を ラジ アン (z/1 8 0 角度 ) と し た 場合 の 三角 関数 コサイン (余弦 ) の 値 を 
求め 、 同 し じ く フロ ー テ ィング ・ ア キュ ムレ ー タ に 与え を て も どり ます . 


C100 
C103 


C106 
C109 


C10C 
C10D 


C10E 
C111 
C114 
C117 


C11A 


C11B 
C11E 


C121 
C122 


C125 
C128 


C12B 
C12C 


C12F 


C131 
C132 
C133 
C134 
C13?7 
C138 


C13A 
C13E 
C142 
C146 
C148 
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213AC1 
CD31C1 


CD7E1B 
DA665C 


23 
ES 


CDBE2B 
CDB327 
CDF632 
CD222D 


EB 


2148C1 
CD31C1 


E1 
CD31C1 


2154C1 
CD31C1 


EB 
CD31C1 


18CF 


7E 
AZ 
C8 
CDS5702 


18F ァ 7 


0D0A6120 
6E756D62 
6572203F 
2000 

20202020 


ORG 


START: LD 
CALL 


CALL 
JP 


INC 
PUSH 


CALL 
CALL 
CALL 
CALL 


EX 


LD 
CALL 


PoP 
CALL 


LD 
CALL 


EX 
CALL 


JR 


ロー ーー 


ISPMSGsLD 
AND 
RET 
CALL 
INC 
JR 


で < 


ROMPT:DEFB 


ANS1: DEFB 


ーーー Co func 上 ion te 上 PFogtam ーー 一 


0C100H 


HL , PRODMPT 
DSPMSG 


1B7EH ) creen edi モ or 
C,5C66H j sy ョ stem monitor i 千 stop key 


HL 
HL 


2BBEH 3 convert into binary code 
27B3H 』 convert into single precision 
32F6H j※co5 function 

2D22H ? Conver モ in て to character code 


DE,HL j top address of result in reg-de 


HL , ANS1 
DSPMSG 


HL 
DSPMSG 


top address of a input number 
display a input number again 


HL , ANS2 
DSPMSG 


DE ,HL 
DSPMSG 


て op address of resu]1 モ 上 in reg-h1 
display resu] モ 


START 


display message SubCoutine 


A,(HL) 
A 

Z 
0257H 
HL 
DSPMSG 


displ ay a characer 


me ヨ ヨ 89 ど G 8 じ で 8 


0DH,0AH,"a number ? /。0 


cos ( “ ヵ 0 


C14C 20636F73 
C150 20282000 
C154 20292069 ANS2: DEFB “ ) is equal to “,0 
C158 73206571 
C15C 75616C20 
C160 746F2000 
H 

C164 END 
\GC100 
8a number ? 1 

cos ( 1 ) is equal to  .540302 
8 number ? 1。1 

cos ( 1.1 ) is equal to  .453596 
a number ? 1.2 

cos ( 1.2 ) is equal to  .362358 
a number ? 1.3 

cos ( 1.3 ) is equal to  .267499 
a number ? 1.4 

cos ( 1.4 ) is equal to  .16996 ァ 7 
a number ? 1.5 

cos ( 1.5 ) is equal to  .0707371 
a number ? 1.6 

co ( 1.6 ) is equal to -.0291995 
a number ? 


※ 
0k 


Print tab(29) jcos(1.6) 


Ok 


ー・0291995 
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3 2FCH 正弦 (サイン) の 計算 





アド 


"レス 3 2FCH 





機 


能 | 正弦 (サイン ) の 計算 








レジ スタ 











AFBCDEHL 


説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 単 精度 型 実 数 の 単位 


解 





を ラジ アン ( ァ ン 1 8 0 X 角 度 ) と し た 場合 の 三角 関数 サイ ン (正弦 ) の 値 を 求 


め , 同じ く フ ロー ティ ン 


サン プル 





C100 
C103 


C106 
C109 


C10C 
C10D 


C10E 
C111 
C114 
C117 


C11A 


C11B 
C11E 


C121 
C122 


C125 
C128 


C12B 
C12C 


C12F 


C131 
C132 
C133 
C134 
C137 
C138 


C13A 
C13E 
C142 
C146 
C148 
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213AC1 
CD31C1 


CD7E1B 
DA66SC 


23 
E5 


CDBE2B 
CDB327 
CDF632 
CD222D 


EB 


2148C1 
CD31C1 


E1 
CD31C1 


2154C1 
CD31C1 


EB 
CD31C1 


18CF 


7E 
A7 
C8 
CDS5702 


18F7 


0D0A6120 
6E756D62 
6572203F 
2000 

20202020 


ORG 


START: LD 
CALL 


CALL 
JP 


INC 
PUSH 


CALL 
CALL 
CALL 
CALL 


EX 


LD 
CALL 


POP 
CALL 


LD 
CALL 


EX 
CALL 


JR 


ロー ーー 


ISPMSG:LD 
AND 
RET 
CALL 
INC 
JR 


で ーー <・ 


ROMPT:DEFB 


ANS1: DEFB 


ング ・ ア キュ ムレ ー タ に 与え て も どり ます . 


ーーー 81n Tunction teB 上 PCogtam 一 一 


0C100H 

HL , PROMPT 

DSPMSG 

1B7EH j Screen edi モ or 

C,5C66H j =y=tem monitor if stop key 

HL 

HL 

2BBEH j Convert into binary code 
27B3H ) convert into single precision 
32F6H 3Xgin function 

2D22H j convert into character code 
DE ,HL ) top address of result in reg-de 
HL , ANS1 

DSPMSG 

HL : top address of a input number 
DSPMSG j display a input number again 
HL , ANS2 

DSPMSG 

DE ,HL : top address of resul モ in reg-h1 
DSPMSG j display reBul モ 

START 


displ ay mesaage SubCoutine 


A,(HL) 
A 

Z 
0257H 
HL 
DSPNMSG 


di splay a characer 


me=896 8r@8a 


0DH,0AH,"a number ? “0 


sin ( “,0 


C14C 2073696E 
C150 20282000 
C154 20292069 ANS2: DEFB “ ) is equal to “,0 
C158 73206571 
C15C 75616C20 
C160 746F2000 


C164 END 
\GC100 
a number ? 0 

sin ( 0 ) is equal to 1 
8 number ? 0.1 

Bin ( 0.1 ) is equal to  .995004 
8 number ? 0.2 

sin ( 0.2 ) is equal to  .98006 ァ 7 
8 number ? 0.3 

in ( 0.3 ) is equal to  .955337 
a number ? 0.4 

sin ( 0.4 ) is equal to  .921061 
a number ? 5 

Sin ( 5 ) is equal to  .283662 
a number ? 6 

sin ( 6 ) is equal to  .96017? 
a number ? 7 

ョ in ( 7 ) is equal to  .753903 
a number ? 8 

sin ( 8 ) is equal to -.1455 
a number ? 9 

Bin ( ② ) is equal to -.91113 
a number ? 
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335DH 正 接 値 (タン ジェ ント ) の 計算 


アド レス | 3 35DH 
機能 | 正 接 値 (タン ジェ ント ) の 計算 
レジ スタ | AFBCDEHL 











| 解説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 単 柄 度 型 実数 の 単位 
を ラジ アン ( ァ /1 8 0 X 角 度 ) と し た 場合 の 三角 関数 タン ジェ ント ( 正 接 値 ) 
の 値 を 求め 、 同じく フロ ー テ ィング ・ ア キュ ムレ ー タ に 与え を て も どり ます . 

た だ し , 正 接 値 (タン ジェ ント ) の 値 は 計算 式 『tan 9=sin の /cos 急 に 準じ 
て 算出 する た め , 入力 パラ メー タ に 対す る 余弦 (コサイン ) の 値 が 0 (ゼロ ) を 
と る 場合 ( テ プ 2,。 3 テ ァ グ 2 5 テグ 2 等 の 場合 ), “Division by zero" エラ ー 
を 発生 し イン タプ リタ の 制御 下 に 入り ます . 


ーーー て tan function teS 七 progtam ーー 


ORG 0C100H 
C100 213AC1 START: LD HL ,PROMPT 
C103 CD31C1 CALL DSPMSG 
C106 CD7ZE1B " CALL 1B7EH j BCCeen @di セ or 
C109 DA66S5C JP C,5C66H j system monitor if stop key 
Ct0Cc 23 INC HL 
C10D E5 PUSH HL 
C10E CDBE2B CALL 2BBEH jconvert into binary code 
C111 CDB327 CALL 27B3H ? convert into single precision 
C114 CD5D33 CALL 335DH 3※ モ an function 
C117 CD222D CALL 2D22H : convert into character code 
H 
C11A EB EX DE,HL : top address of resul モ in reg-de 
C11B 2148C1 5 LD HL , ANS1 
C11E CD31C1 CALL DSPMSG 
C121 E1 " POP HL ) top address of a input number 
C122 CD31C1 CALL DSPMSG j display a input number again 
H 
C125 2154C1 LD HL,ANS2 
C128 CD31C1 CALL DSPMSG 
C12B EB 6 EX DE ,HL j top address of result in reg-h1 
C12C CD31C1 CALL DSPMSG display re ら ul モ 
C12F 18CF " JR START 
) disp]1 ay mes=age SubCoutine 
C131 7E DSPMSG:LD 。A,HL) 
C132 AZ AND A 
C133 C8 RET Z 
C134 CDS5702 CALL 0257H j display a character 
C137 23 INC HL 
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C138 18F? 


C13A 0DOA6120 


JR DSPMSG 


me き ら 89@ 8 ビ @ ど 8 


で ・ 


ROMPT:DEFB 0DH,0AH,"a number ? ^,0 


C13E 6E756D62 
C142 6572203F 


C146 2000 


C148 20202020 ANS1: DEFB ^ tan ( “,0 
C14C 2074616E 

C150 20282000 

C154 20292069 ANS2: DEFB ^ ) is equal to “,0 
C158 73206571 

C15C 75616C20 

C160 746F2000 


C164 


%GC100 


8 number 
tan 
a number 
tan 
8 number 
tan 
a number 
tan 
a number 
tan 
a number 
tan 
a number 
tan 
a number 
tan 
8 number 
tan 
a number 


つつ へ つつ へ つぐ へ や へ や へ つつ へ うつ へ うつ へ うつ へ ふう 


END 


0.001 

0.001 ) is equal to 1.00003E-03 
0.01 

0.01 ) is equal to .0100003 
0.1 

0.1 ) is equal to  .100335 

1 

1 ) is equal to 1.55741 

10 

10 ) is equal to .64836 

100 

100 ) is equal to -.587219 
1000 

1000 ) is equal to 1.47022 
10000 

10000 ) is equal to  .320945 
100000 

100000 ) is equal to -.0368322 
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3372H 逆 正 接 (アーク ・ タ ンジ ェ ン ト ) の 計算 





アド レス | 3 3 7 2H 
機能 | 逆 正 接 (アーク ・ タ ンジ ェ ン ト ) の 計算 
レジ スタ | AFBCDEHL 











[解説 | フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 され た 単 精度 型 実 数 の 単位 
を ラジ アン ( ァ z/1 8 0 角度) と し た 場合 の 三角 関数 アー ク ・ タ ンジ ェ ン ト ( 逆 
正 接 ) の 値 を 求め 、 同 じ し く フロ ー テ ィング ・ ア キュ ムレ ー タ に 与え て も どり ます . 
演算 結果 は , ー ァ ノ 2 か ら ァ / 2 まで の 値 に な り ま す . 


ーーー atn funcion te5S PFogtam 一 


ORG 0C100H 
C100 213AC1 START: LD HL ,PROMPT 
C103 CD31C1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH screen editor 
C109 DA665C JP C,5C66H j syStem monitor if stop key 
C10C 23 6 INC HL 
C10D ES PUSH HL 
C10E CDBE2B " CALL 2BBEH j COnvert into binary code 
C111 CDB327 CALL 27B3H j convert into single precision 
C114 CD7233 CALL 3372H j※a モ tn Tunction 
C117 CD222D CALL 2D22H j Conver セ into character code 
C11A EB " EX DE,HL j top address of result in reg-de 
C11B 2148C1 LD HL,ANS1 
C11E CD31C1 CALL DSPMSG 
C121 E1 " POP HL j top address of a input number 
C122 CD31C1 CALL DSPMSG j display a input number again 
C125 2154C1 LD HL,ANS2 
C128 CD31C1 CALL DSPMSG 
C12B EB - EX DE,HL : top address of result in reg-h1 
C12C CD31C1 CALL DSPMSG j display resul モ 
C12F 18CF " JR START 

j display message 3ubCoutine 

C131 7E DSPMSG:LD A,(HL ) 
C132 A ァ 7 AND AaA 
C133 C8 RET Z 
C134 CD5702 CALL 0257H j display a character 
C137 23 INC HL 
C138 18F7 JR DSPMSG 


me きら 8 の で 8 じ ど で 8 


で 


C13A 0D0A6120 
C13E 6E756D62 
C142 6572203F 


ROMPT:DEFB 0DH,0AH,"a number ? “,0 
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1s 


C146 2000 
C148 20202020 ANS1: DEFB 
C14C 2061746E 
C150 20282000 
C154 20292069 ANS2: DEFB “ 
C158 73206571 
C15C 75616C20 
C160 746F2000 
C164 END 
XGC100 
a number ? 1 

atn ( 1 ) is equal to 
a number ? 2 

atn ( 2 ) is equal to 
a number ? 3 

atn ( 3 ) is equal to 
a number ? 4 

atn ( 4 ) is equal to 
8a number ? 5 

atn ( 5 ) is equal to 
a number ? 6 

atn ( 6 ) is equal to 
a number ? 10000000000 

atn ( 10000000000 ) 
a number ? 


3 


atn ( “0 


) is equal to “,0 


・7853928 

1 .10715 

1 .24905 

1 .32582 

1 .3734 

1 .40565 

equal to 1.5708 


print tab(37)jatn(10000000000 ) 


0k 


1 .5708 
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3BF9H エラ ー 出 力 


アド レス | 3BF9H 


機 能 | エラ ー 出 力 
レジ スタ | AFBCDEHL 








解説 | レジ スタ E に 格納 され た エラ ー・ コ ー ド (1 一 255) に 対応 する 
エラ ー を 出力 し て , イン タプ リタ の 制御 下 に 入り ます . 

た だ し , レジ スタ E に 格納 され た エラ ー・ コ ー ド に 対応 する エラ ー が 存在 し な 
い 場 合 に は , “Unprintable error "エラー を 出力 し ます . 

また , レジ スタ E に 0 0H (ゼロ ) が 与え られ た 場合 に は , 無限 ルー プ に 入り 
込ん で し まう た め 注 意 が 必要 で す . 


ーーー Output error of basic -- 一 


ORG 0C100H 


1nPu erCor code section 


C100 213BC1 LD HL , PROMPT ) error code ? 
C103 CD32C1 CALL DSPMSG 
H 
C106 1E00 LD E,0 ? initialize input error code 
C108 3E30 LD  A,707" j initialize input character 
C10A F5 INLOOP :PUSH AF 日 
C10B 7B LD AE H 
C10C 87 ADD AA H 
C10D 87 ADD  A,A 日 
C10E 83 ADD A,E 日 
C10F 87 ADD  A,A ) e <-- e ※ 10 + input number 
C110 SF LD  E,A 日 
C111 F1 POP AF 5 
C112 D630 SUB "0" H 
C114 83 ADD AE H 
C115 SF LD  E,A H 
C116 CD750F 5 CALL OF75H 3』 input a character from keyboard 
C119 CDS702 CALL 0257H : echo-back a character 
C11C FE03 CcP 03H 
C11E CA665C JP Z,5C66H j jump to system monitor i 千 stop key 
C121 FEOD CcP 0DH 
C123 20E5 JR NZ , INLOOP 
C125 3E0OA " LD A,0AH j 1ine feed code in accumul ator 
C127 CDS5702 CALL 0257H : display a character 
C12A 1C 2 INC E 1 
C12B 1D DEC E j ystem monitor i 千 error code is ze 
C12C CA665C JP Z,S5C66H 5 


output error of basic section 


C12F C3F93B JP 3BF9H 3 ※ 〇 u モ pu モ erFCor and jump て to basic 
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C132 7E 
C133 AZ 
C134 C8 
C135 CD5702 
C138 23 
C139 18F7 


C13B 6572726F 
C13F 7220636F 
C143 6465203F 
C147 2000 


C149 


%GC100 
error code ? 1 


display message 3ubrCoutine 


H 

H 

H 

H 1nPut ら = : top address of message in register hl 
H destroys : register af げ 。h,1 
H 

D 


ISPMSG:iLD  A,(HL) 


AND A 

RET Z 

CALL 0257H ) display a character 
INC HL 

JR DSPMSG 


me ラ 896 8 じ @8 


ROMPT:DEFB "error code ? “,0 


で … 


END 


NEXT uithout FOR 


Ok 
mon 
\GC100 


error code ? 2 


Syntax error 
0k 

moOn 

%GC100 


error code ? 3 
RETURN uithout GO0SUB 


0k 
mon 


6C100 


error code ? 4 


Out of DATA 
0k 

mon 

XGC100 


error code ? 5 


Illegal functi 
Ok 

mon 

%GC100 

error code ? 1 
Redimensioned 
0k 

moOn 

%GC100 

error code ? 1 
Division by ze 
0k 

mon 

\GC100 

error code ? 1 
Illegal direct 
0k 

mon 

%GC100 

error code ? 2 
RESUME ぃ ithout 
0k 

mon 

\GC100 

error code ? 3 
Unprintable er 
0k 


on call 


0 


8 ビビ 8 ン 


1 


PO 


2 


0 


FCoF 


0 


ror 
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3D76H BASIC テ キス ト の リン ク 1 


アド レス 
機能 
レジ スタ 














解説 


3D76H 
BASI テ キス ト の リン ク 1 
AFBCDEHL 


EB54H-EB55H 番 地 に 格納 され て いる プロ グラ ム ・ エ リア 


の 先頭 アド レス か ら , レジ スタ HL を ポイ ンタ と し て プロ グラ ム ・ エ リア を 上 位 
に 向かっ て サー チ し て 行き , つぎ の 行 の 先頭 アド レス を 見 つけ た ら 現 在 行 の リン 
ク ・ ポ イン タ に 代入 する 作業 を , 次 行 の 先頭 ? バイ ト が 共に 0 0H に な る ま て で 続 


け ま す . 


終了 時 に は , プロ グラ ム の エン ド ・ ア ドレ ス が レジ スタ HL に , レジ スタ HL 
の 値 か ら 1 を 減じ し た も の が レジ スタ DE に , それ ぞ れ 格納 され ます . 


C100 2146C1 
C103 CD3DC1 


C106 2A54EB 
C109 CD21C1 


C10C 2164C1 
C10F CD3DC1 


C112 CD763D 
C115 CD21C1 


C118 216AC1 
C11B CD3DC1 


C11E C3665C 
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) ーーー Bearch tex 寺 and ge 1] ink-pointera ーー 一 
・ ORG 0C100H 
H 

LD HL,MSG1 

CALL DSPMSG 


LD HL,(OEB54H) 
CALL DSPHL 


LD HL,MSG2 
CALL DSPMSG 


CALL 3D76H Xeach tex and se ]ink-pointer ぉ s 
CALL DSPHL 


LD HL,MSG3 
CALL DSPMSG 


JP 5C66H 
display hexa decimal number in register hl subroutine 


H 
H 
H 
日 inpu セ = : number in register、h1 
H destroys : register a,f,b 
H 
D 


ISPHL: LD AH 
CALL DSPACC 
LD AL 


H 

DSPACC:LD B,A 
RRCA 
RRCA 
RRCA 
RRCA 
CALL HALF 
LD AB 


HALF* AND OFH 
CP 10 
JR  C,NUMBER 


C135 C60?7 ADD  A,Z 


C137 Ce30 NUMBER:ADD  A,30H 


C139 CD5702 CALL 0257H j display a character 
C13C C9 RET 


display message Subroutine 


H 
H 
H 
H H 
H destrCoy8 : 
H 
D 


inputa top address of message in regi ら ter 
register a ョ , げ 。h, 1 
C13D 7E SPMSGiLD  A,(HL) 
C13E AZ AND A 
C13F C8 RET Z 
C140 CD5702 CALL 0257H ) display a character 
C143 23 INC HL 
C144 18F7 JR DSPMSG 


ma らら 896 8PG8 


ネー < 


C146 6C696E6B 
C14A 65642021 
C14E 0DOA6261 
C152 73696320 
C156 74657874 
C15A 206F6E20 
C15E 66726F6D 
C162 2000 


SG1: DEFB “1inked !",0DH,0AH, "basic text on from 


C164 6820746F MSG2: DEFB “h to “,0 


C168 2000 


C16A 68202121 MSG3: DEFB "h !!7.0 


C16E 00 


C16F END 


neu 
Ok 

mon 
6C100 
1inked ! 


basic text on from 8021h to 8022h !! 


\D8021 , 8022 
8021 00 00 
※ 


0k 


100 print "This is the text !!" 


run 
This is the tex モ !! 
0k 

mon 

xGC100 

1inked ! 


basic tex モ て on from 8021h to 803Eh !! 


\D8021 , 803E 


8021 3D 80 64 00 91 20 22 84 68 6?% 73 20 69 73 20 
8030 74 68 65 20 74 65 78 74 20 21 21 22 00 00 00 


し 3 


h1 


0 
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3D79H BASIC テ キス ト の リン ク 2 





アド レス | 3D79H 
機 能 | BAS1C テ キス ト の リン ク 2 


レジ スタ | AFBCDEHL 


| 解説 | レジ スタ HL に よっ て 指定 する アド レス か ら , レジ スタ HL を ポイ 
ンタ と し て プロ グラ ム ・ エ リア を 上 位 に 向かっ て サー チ し て 行き , つぎ の 行 の 先 
頭 ア ドレ ス を 見 つけ た ら 現 在 行 の リン ク ・ ポ イン タ に 代入 する 作業 を , 次 行 の 先 
頭 2 バイ ト が 共に 0 0H に な る まで 続け ます . 

終了 時 に は , プロ グラ ム の エン ド ・ ア ドレ ス が レジ スタ HL に , レジ スタ HL 
の 値 か ら 1 を 減じ し た も の が レジ スタ DE に , それ ぞ れ 格納 され ます . 




















3D7AH BASIC テ キス ト の リン ク 3 


アド レス | 3D7AH 
機 能 | BASI1C テ キス ト の リン ク 3 
レジ スタ | AFBCDEHL 





[解説 | レジ スタ DE に よっ て 指定 する アド レス か ら , レジ スタ 時 し を ボ イ 
ンタ と し て プロ グラ ム ・ エ リア を 上 位 に 向かっ て サー チ し て 行き , つぎ の 行 の 先 
頭 ア ドレ ス を 見 つけ た ら 現 在 行 の リン ク ・ ポ イン タ に 代入 する 作業 を , 次 行 の 先 
頭 2 バイ ト が 共に 0 0H に な る まで 続け ます . 

終了 時 に は , プロ グラ ム の エン ド ・ ア ドレ ス が レジ スタ HL に , レジ スタ HL 
の 値 か ら 1 を 減 し た も の が レジ スタ DE に , それ ぞ れ 格納 され ます . 
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3DC1H BASIC の 行 番号 サー チ 





アド レス | 3DC1H 
機 能 | BAS1C の 行 番号 サー チ 
レジ スタ | AFBCDEHL 








[解説 | BAS 1IC の テキ スト ・ エ リア 中 か ら , レジ スタ DE に よっ て 行 番 
号 を 指定 する BAS IC プ ログ ラム の 格納 され て いる アド レス を さがし 出す た め 
の シス テム ・ サ ブル ー チ ン で す . 
さがし 出し た アド レス は , レジ スタ BC お よび レジ スタ 日 工 に 格納 し ます が , 
ゼロ ・ フ ラグ (Z) お よび キャ リ ・ フ ラグ (CY) の 変化 に よっ て , つぎ に 示す 
3 通り の 実行 結果 に 分 類する こと が で きま す . 
ゼロ ・ フ ラグ (Z),、 キャ リ ・ フ ラグ (CY) 共に セッ ト さ れ た 場合 …… 指 
定 し た 行 番号 に 相当 する BA S IC の プロ グラ ム 行 が 存在 する こと を 示 
し ます . レジ スタ BC に は 指定 プロ グラ ム 行 の 先頭 アド レス (リン ク ・ 
ポイ ンタ を 含む ) が , レジ スタ HL に は 指定 し た つぎ の プロ グラ ム 行 の 
先頭 アド レス が , それ ぞ れ 格納 され ます . 
ゼロ ・ フ ラグ (Z) が セッ ト さ れ , キャ リ ・ フ ラグ (CY) が リセ ッ ト さ れ 
た 場合 …… 指定 し た プロ グラ ム 行 が BAS IC の テキ スト 中 に 存在 せ ず 
に , か つっ 指定 し た 行 番号 より 大 きい 行 番号 の プロ グラ ム 行 が 1 行 も 存在 
し な いこ と を 示し ます . レジ スタ BC お よび レジ スタ HL に は , BAS 
IC の テキ スト ・ エ ンド ・ マ ー ク を 示す 連続 し た 2 バイ ト の 0 0 H が 格 
納 さ れ て いる 最初 の アド レス が 格納 され ます . 
ゼロ ・ フ ラグ (Z), キャ リ ・ フ ラグ (CY) 共に リセ ッ ト さ れ た 場合 …… 
指定 し た プロ グラ ム 行 が BAS IC の テキ スト 中 に 存在 し な いこ と を 示 
し ます が , 指定 し た 行 番号 より 大 きい 行 番号 の プロ グラ ム 行 は 存在 する 
こと を 示し ます . レジ スタ BC に は 指定 し た 行 番号 より 大 きい 行 番号 を 
持つ 最初 の プロ グラ ム 行 の 先頭 アド レス が , レジ スタ H 上 に は その つぎ 
の プロ グラ ム 行 の 先頭 アド レス が , それ ぞ れ 格納 され ます . 


3』 ーー- search the basic モ ex モ for the ]ine 一 一 
ORG 0C100H 


H 
3 1nPput ]ine number sec セ ion 
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C100 2166C1 LD HL,PROMPT 


C103 CDSDC1 CALL DSPMSG 
H 
C106 210000 LD HL,0 
C109 3E30 LD  A,707 
C10B E5 INLOOP iPUSH HL 
C10C D1 POP DE 
C10D 29 ADD HL,HL 
C10E 29 ADD HL,HL 
C10F 19 ADD HL,DE 
C110 29 ADD HL,HL 
C111 D630 SUB “0" 
C113 5F LD  E,A 
C114 1600 LD  D,0 
C116 19 ADD HL,DE 
H 
C117 CD750F CALL OF75H 』 inpu セ a character from keyboard 
C11A CD5702 CALL 0257H j』 echo-back a character 
C11D FEOD CP 0DH 
C11F 20EA JR NZ,INLOOP 
H 
C121 EB EX _ DE,HL : Bet ]1ine number in register de 


search for the 1line section 


C122 CDC13D CALL 3DC1H j※aearch the text for the line 


display resul セ て section 


C125 3011 JR NC,ERROR ) no found if reset carry Tlag 
C127 2191C1 - LD HL,FOUND j line from 
C12A CDSDC1 CALL DSPMSG 
Cc12D CD41C1 CALL DSPBC ) display address 
C130 3E48 LD AH 
C132 CD5702 CALL 0257H j display a character 
C135 C3665C JP 5C66H 3 jump to system moni モ or 
C138 2175C1 ERROR: LD HL ,NFOUND ) 1ine number not found ! 
C13B CDSDC1 CALL DSPMSG 
C13E C3665C JP 5C66H 3) jump to system moni モ or 
) display register bc hexa decimal Subroutine 
: 1nput ら : number in register bc 
H destroys= : reguster ab 
C141 78 DSPBC: LD ALB 
C142 CD46C1 CALL DSPACC 
C145 79 LD Aa,C 
C14e 47 DSPACCiLD  B,A 
C147 OF RRCA 
C148 OF RRCA 
C149 OF RRCA 
C14A OF RRCA 
C14B CD4FC1 CALL HALF 
C14E 78 LD AaA,B 
C14F E60F HALF: AND OFH 
C151 FEOA CP 10 
C153 3802 JR  C,NUMBER 
C155 C60?7 ADD AZ 
C15? C630 NUMBER:ADD A,30H 
C159 CD5702 CALL 0257H j display a character 
C15C C9 RET 


display mesaage SubCoutine 


1nPu も ら : top address of message in register hl 
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H destroys : register a げ ,h,1 


C15D 7E DSPMSGiLD  A,(HL) 

C15E AZ AND A 

C15F C8 RET Z 

C160 CD5702 CALL 0257H j display a character 
C163 23 INC HL 

C164 18F7 JR DSPMSG 


me き 889 ど G 8 じ @8 


で <・ 


C166 6C696E65 PROMPT:DEFB “1ine number ? “,0 
C16A 206E756D 

C16E 62657220 

C172 3F2000 

C175 0D0A6C69 NFOUND:DEFB 0DH,0AH,^1ine number not found !! "7,07H,0 
C179 6E65206E 

C17D 756D6265 

C181 ?2206E6F 

C185 7420666F 

C189 756E6420 

C18D 21210700 

C191 0D0A6C69 FOUND: DEFB 0DH,0AH,"1ine from ",0 
C195 6E652066 

C199 726F6D20 

C19D 00 


C19E END 


1 i ョ モ 

100 PRINT "1ine number 100' 

110 PRINT "1ine number 110" 

120 PRINT "1ine number 120' 

130 PRINT "1ine number 130* 

140 PRINT "1ine number 140" 

150 PRINT "1ine number 150* 

0k 

mon 

%GC100 

line number ? 10 

1ine number not found !! 

6GC100 

1ine number ? 100 

1ine from 8021H 

XGC100 

1ine number ? 110 

1ine from 8032H 

\6C100 

1ine number ? 120 

1ine from 8051H 

%GC100 

1ine number ? 130 

1ine from 8062H 

\GC100 

1ine number ? 135 

1ine number not found !! 

\5C100 

1ine number ? 60000 

1ine number not found !! 

xD8000,80FF 

8000 E6 F1 E9 F1 C9 00 C2 00 7F 23 A9 23 C9 00 C9 00 
8010 C9 00 C9 00 C9 00 C9 00 C9 00 C9 00 C9 00 C9 00 
8020 00 39 80 64 00 91 20 22 6C 6@9 6eE 65 20 6eE 75 6D 
8030 62 65 72 20 31 30 30 22 00 5S1 80 6E 00 ?1 20 22 
8040 6C 69 6E 65 20 6E 75 6D 62 65 72 20 31 31 30 22 
8050 00 69 80 78 00 921 20 22 6C 29 6eE 65 20 6eE 75 6D 
8060 62 65 72 20 31 32 30 22 00 81 80 82 00 91 20 22 
8070 6C 69 6E 65 20 6E 75 6D 62 65 72 20 31 33 30 22 
8080 00 292 80 8C 00 91 20 22 6eC 62 eE 65S20eE756D 
8090 62 65 72 20 31 34 30 22 00 B1 80 26 00 9?1 20 22 
80A0 6C 69 6E 65 20 6E 75 6D 62 65 72 20 31 35 30 22 
80B0 00 00 00 26 00 00 00 00 00 00 00 00 00 00 00 00 
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80C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
80D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
80E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


80F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
※ 
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3E5CH イン プッ ト 


アド レス | 3E5CH 
機 能 | イン プッ ト 
レジ スタ | AFBCDEHL 








| 解説 | テキ スト ・ ス クリ ー ン 上 の 現 カ ー ソ ル 位 置 に 入力 を 促す プロ ンプ ト 
と 1 個 の スペ ー ス “? " を 表示 後 , キー ボー ド か ら 1 ライ ン 分 の デー タ を 入力 
し , BASIC の イン プッ ト ・ バ ッ フ ァ (EC96H-ED9 5H 番 地 ) に 格納 
し て も どり ます . た だ し , 入力 デー タ は 2 5 4 バイ ト ま で が 有効 で , 2 5 4 バイ 
ト を 越え て 入力 し た 場合 に は , 先頭 か ら の 2 5 4 バイ ト が 入力 デー タ と 見 な され 
ます . 

デー タ の 入力 は , RETURN キ ー (CTRL+M) また は STOP キ ー (C 
TRL+C) の 入力 に よっ て 終了 し ます が , 前 者 の 場合 に は キャ リ ・ フ ラグ (C 
Y) を 0 に リセ ッ ト し , 後者 の 入力 に よっ て 中 断 し た 場合 に は キャ リ ・ フ ラグ (C 
Y) を 1 に セッ ト し て も どり ます . 

この サブ ルー チン か ら の リタ ー ン 時 に は , レジ スタ HL に EC95H (イン プ 
ッ ト ・ バ ッ フ ァ の 開始 アド レス ー1 ) が 、 アキュ ムレ ー タ に は 最後 に 入力 され た 
キャ ラク タ の キャ ラク タ ・ コ ー ド (0 3H ま た は 0 DH) が 与え られ ます . 


# ーーー my PeFSona]l history = モ 上 atemen 七 一 一 一 
日 
ORG 0C100H 

日 
C100 21B1C1 LD HL , NAME 
C103 CDA8C1 CALL DSPMSG 
C106 CDS5C3E CALL 3ES5CH 
C109 DA665C JP C,S5C66H 
C10C 23 INC HL 
C10D 111FC2 LD DE , BNAME 
C110 011400 LD BC,20 
C113 EDBO LDIR 

日 
C115 21BAC1 LD HL , ADRS 
C118 CDA8C1 CALL DSPMSG 
C11B CD5C3E CALL 3ES5CH 
C11E DA665C JP C,S5C66H 
C121 23 INC HL 
C122 1133C2 LD DE ,BADRS 
C125 016400 LD BC,100 
C128 EDBO LDIR 

日 
C12A 21C3C1 LD HL ,PHONE 
C12D CDA8C1 CALL DSPMSG 
C130 CD5C3E CALL 3ES5CH 
C133 DA665C JP C,5C66H 
C136 23 INC HL 
C137 1197C2 LD DE , BPHONE 
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C13A 
C13D 


C13F 
C142 
C145 
C148 
C14B 
C14C 
C14F 
C152 


C154 
C157 
C15A 
C15D 
C160 
C161 
C164 
C167 


C169 
C16C 
C16F 
C172 


C175 
C178 
C17B 
C17E 


C181 
C184 
C187 
C18A 


C18D 
C190 
C193 
C196 


C199 
C19C 
C192F 
C1A2 


C1A5 


C1A8 
C1A9 
C1AA4 
C1AB 
C1AE 
C1AF 


C1B1 
C1B5 
C1B9 
C1BA 
C1BE 
C1C2 
C1C3 
C1CZ 
C1CB 
C1CC 
C1D0 
C1D4 
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011400 
EDBO 


21CCC1 
CDA8C1 
CDS5CSE 
DA665C 
23 
11ABC2 
011400 
EDBO 


21DS5C1 
CDA8C1 
CDS5C3E 
DA665C 
23 
11BFC2 
011400 
EDBO 


21DEC1 
CDA8C1 
211FC2 
CDA8C1 


21EBC1 
CDA8C1 
2133C2 
CDA8C1 


21F8C1 
CDA8C1 
2197C2 
CDA8C1 


2105C2 
CDA8C1 
21ABC2 
CDA8C1 


2112C2 
CDA8C1 
21BFC2 
CDA8C1 


C3665C 


7E 
AZ 
C8 
CD5702 


18F7 


6E616D65 
20202020 
00 
61646472 
65737320 
00 
70686F6E 
65202020 
00 
73657820 
20202020 
00 


ロー ーー ーー 


ーー 


IAME : 


ADRS: 


LD 
LDIR 


LD 
CALL 
CALL 
JP 
INC 
LD 
LD 
LDIR 


LD 
CALL 
CALL 
JP 
INC 
LD 
LD 
LDIR 


LD 
CALL 
LD 
CALL 


LD 
CALL 
LD 
CALL 


LD 
CALL 
LD 
CALL 


LD 
CALL 
LD 
CALL 


LD 
CALL 
LD 
CALL 


JP 


1nPu も = 


de= モ oy8 


SPMSGiLD 


AND 
RET 
CALL 
INC 
JR 


DEFB 


DEFB 


BC,20 


HL , SEX 
DSPNMSG 
3E5CH 
C,S5C66H 
HL 
DE , BSEX 
BC,20 


HL ,AGE 
DSPMSG 
3E5CH 
C,S5C66H 
HL 

DE ,BAGE 
BC,20 


HL , ANAME 
DSPMSG 
HL , BNAME 
DSPMSG 


HL , AADRS 
DSPMSG 
HL ,BADRS 
DSPMSG 


HL , APHONE 
DSPMSG 
HL , BPHONE 
DSPMSG 


HL , ASEX 
DSPMSG 
HL , BSEX 
DSPMSG 


HL , AAGE 
DSPMSG 
HL , BAGE 
DSPMSG 


SC66H 


display message ubroutine 


top address of message in register h1] 
register af げ 。h,1 


A,(HL) 

A 

Z 

0257H ) display a character 
HL 

DSPMSG 


me88896G 8P@8 


^name っ 0 


^address ",0 


PHONE: DEFB “phone “0 


SEX: 


DEFB 


eX 0 


C1D5 61676520 AGE: DEFB “age 0 
C1D9 20202020 


C1DD 00 


C1DE 0DOA6E61 ANANE: DEFB 0DH,0AH, “name 
C1E2 6D652020 
C1E6 20203A20 


C1EA 00 


C1EB 0D0A6164 AADRS: DEFB 0DH,0AH, "address 
C1EF 64726573 
C1F3 73203A20 


C1F7 00 


C1F8 0D0A7068 APHONE :DEFB 0DH,0AH, phone 
C1FC 6F6E6520 
C200 20203A20 


C204 00 


C205 0D0A7365 ASEX: DEFB 0DH,0AH, "sex 
C209 78202020 
C20D 20203A20 


C211 00 


C212 0D0A6167 AAGE: DEFB 0DH,0AH, age 
C216 65202020 
C21A 20203A20 


C21E 00 


C21F 
C233 
C29? 
C2AB 
C2BF 


C2D3 


\G6C100 
name 
address 
phone 
ex 
age 


name 
address 
phone 
Bex 

age 

※ 


つやつや つ 


data buffer 


H 
BNAME: DEFS 20 
BADRS: DEFS 100 
BPHONE :DEFS 20 
BSEX: DEFS 20 
BAGE: DEFS 20 


END 


KIYO0SHI KAUAMURA 


12-22-516 NISHI-MACHI XXXXX-KU _ YOKOHAMA 235 


045-XXX-623 ァ 7 
A_ MALE 
2X 


KIYO0SHI KAMAMURA 


12-22-516 NISHI-MACHI XXXXX-KU _ YOKOHAMA 235 


045-XXX-6237 
AA MALE 
2X 
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4095H レジ スタ ・ ペ ベア の 比較 


アド レス 
機能 
レジ スタ 














解説 


4095H 
レジ スタ ・ ペ ア の 比較 


レジ スタ H 工 に 格納 され た 1 6 ビッ ト の 和 無 符号 整数 と 。 レジ スタ D 


E に 格納 され た 1 6 ビッ ト の 和 無 符号 整数 を 比較 し , 結果 を ゼロ ・ フ ラグ (Z) お 
よび キャ リ ・ フ ラグ (CY) に セ モット し て も どり ます . 

それ ぞ れ の フラ グ は , レジ スタ HL と レジ スタ DE の デー タ が 等 し い 場 合 に は 
ゼロ ・ フ ラグ (Z) を 1 に セッ ト し , 前 者 の 方 が 小さ い 場 合 に は キャ リ ・ フ ラグ 
(CY) を 1 に セッ ト し ます . 


C100 110000 
C103 21FFFF 


C106 7A 
C107 CD44C1 
C10A 7B 
C10B CD44C1 
C10E 3E3A 
C110 DF 
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H ーーー dumP memory ぃ ith ascii character 一 一 
H 
ORG 0C100H 


LD DE ,0000H ) top address for dump memory 
LD HL , 0FFFFH ) end address for dump memory 


display address section 


OO0PL: LD Aa,D 
CALL DSPACC 


dump hexa decimal section 


PUSH DE 
LD  B,16 
LOOPS1iLD 。 A。 
RST 18H 
LD  A,(DE) 
CALL DSPACC ?) dump a memory 
INC DE 
DJNZ LOOPS1 
POP DE 


LD 。 A 
RST 18H 
RST 18H 


display three Pac@s 


dump ascii charac も er sec セ ュ on 


LD  B,16 
LOOPS2:LD  A,(DE) 
CP 20H 
JR _ NC,ASCII 
LD 。 A“ ご 
ASCII: RST 18H 3) dump ascii characer 
6 DE 


NC 
DJNZ LOOPS2 


C130 
C132 
C133 
C135 


C136 
C139 


C13C 
C13F 


C141 


C144 
C145 
C146 
C147 
C148 
C149 
C14C 


C14D 
C14F 
C151 
C153 


C155 
C15? 
C158 


C159 


3E0D 


DF 


3E0A 


DF 


CDF10C 
DA66SC 


CD9540 


30CS 


C366S5C 


F5 
OF 
0F 
OF 
OF 


CD4DC1 


F1 


E60F 
FE0A 
3802 
C607 


Ce630 


DF 
C9 


\GC100 


0000: 
0010: 
0020: 
0030: 
0040: 
0050: 
0060: 
0070: 
0080: 
0090: 
00A0: 
00B0: 
00C0: 
00D0: 
00E0: 
00F0: 
0100: 
0110: 
0120: 
0130: 
0140: 
0150: 


し 


F3 
C3 
C3 
C3 
F1 
00 
00 
60 
08 
ED 
B9 
28 
4C 
08 
32 
ED 
00 
01 
C9 
78 
CD 
CD 


31 
59 
DA 
E0 
0C 
00 
00 
EA 
CD 
SE 
ED 
10 
01 
C9 
67 
3C 
CD 
4? 
CD 
CD 
E9 
83 


FF 
42 
F1 
F1 
30 
00 
00 
3D 
BO 
FB 
3E 
CD 
CD 
C5 
EA 
32 
7C 
3E 
7C 
83 
01 
01 


ロー ーー 


LD 
RST 
LD 
RST 


CALL 


JP 


A,0DH 
18H 
A,0AH 
18H 


CALL 


JR 
JP 


1nput= 


de 上 Co ツ 8 


RRCA 


RRC 
RRC 
RRC 
CAL 
POP 


HALF: AND 


CP 
JR 
ADD 


NUMBER : ADD 


FF 
C3 
C3 
9F 
C7 
00 
00 
32 
F1 
01 
01 
5A 
5A 
D5 


CB 
01 
10 
01 
01 
12 
0D 


C3 
6A 
2C 
OF 
18 
00 
00 
61 
3A 
81 
38 
01 
01 
FS 
23 
ED 
3E 
OE 
34 
79 
13 
20 


RST 
RET 


END 


3B 
00 
27 
C3 
CD 
00 
00 
EA 
55 
3C 
02 
E6 
F1 
3A 
44 
CD 
05 
00 
B9 
CD 
0D 
F8 


A 
A 
A 
L 


00 
DA 
88 
57 
00 
00 
00 
01 
EB 
C3 
3E 
40 
D1 
67 
28 
FF 
32 
57 
ED 
83 
20 
05 


0CF1H 
C,S5C66H 


4095H 
NC,LOOPL 


SC66H 


SPACC:PUSH AF 


HALF 


AF 


OFH 
10 


output hexa decimal number 


* 
H 
H 


check stop key 
jump to sys=tem monitor i 千 stop key 


:Xcompare register hl-register de 


H 


jump to system monitor if end 


in accumul ator Subroutine 


binary code in accumula モ or 


register a 下 


C,NUMBER 


7 


A,30H 


18H 


00 
0C 
0C 
02 
00 
00 
00 
81 
ED 
10 
02 
CA 
C1 
EA 
11 
00 
CB 
A0 
CD 
01 
F8 
20 


C3 
C3 
C3 
C3 
00 
00 
00 
00 
4? 
3C 
CD 
68 
B? 
Ee 
3E 
AZ 
ED 
28 
83 
C9 
05 
F3 


6A 
A6 
DD 
E3 
00 
00 
00 
C5 
3E 
C5 
21 
01 
C9 
FE 
21 
C1 
3E 
01 
01 
3E 
20 
C9 


00 
40 
F1 
F1 
00 
00 
F3 
01 
FF 
D5 
01 
CD 
C9 
D3 
CD 
F5 
07 
0C 
3A 
03 
F3 
3E 


C3 
F3 
C3 
AF 
00 
00 
CD 
00 
D3 
FS 
F1 
39 
DB 
40 
29 
20 
CD 
7A 
C6 
CD 
C9 
06 


57 
0B 
60 
32 
00 
00 
4C 
FF 
E4 
CD 
F5 
01 
40 
Fe 
02 
C5 
7C 
07 
ED 
7C 
OE 
CD 


17 
C3 
0D 
75 
00 
00 
16 
C5 
32 
B3 
4? 
18 
E6 
01 
AF 
18 
01 
30 
CD 
01 
00 
7C 


AB 
7E 
46 
EA 
00 
00 
AF 
C3 
55 
F1 
38 
03 
08 
D3 
32 
C6 
CD 
F?Z 
83 
OE 
1A 
01 


F0O 
50 
0C 
CD 
00 
00 
32 
F6 
EA 
32 
OF 
CD 
EE 
40 
C5 
3E 
E9 
79 
01 
00 
13 
CD 


月 1 - テ 3。. テ 」。 テ チリ 。 ォ 
テ YB テ 」 . し . テ 26@ 月 , テ “P 
テレ 円 テ 1 、 テ ン 門 テ 、。F 。 
テー ゴ 7 . テ U. テ | 由 92u0@ 
月 。0 ヌ 。 へ 。。 
・・・・ て て ここ ・・ 月 AL 。 92 
~ 2a 和 ニナ. ナ テ 人 の 
・ へ - 門 : U ま OSG> モ 必 U を 
OO" . く テ . く ナコ 時 へ り 朋 2 
ヶ O> . 8。> .A! 。 由 還 58 。 
(.AZ. 9Ah. へ 9 へ 
L.AZ . 門 ム チキ ノノ n@S. ノ 
。 ノ ナコ 中 :g 全 きす モ @ 人 の 、 モ @ 
2g$ へ DC .> ィ ハ ) . 92 ナ 
O<2 ヒ ON . ァ チ 叶 ナ 。 ニ > 
< 。>。2 ヒ O> へ! 。 人 へ 更 
<・6>... り (zz.0 秒 
ノブ Ai ケ ONm. まこ ONm。 
xA 画 。y 人 へ 画 。 ノラ 。 へ 1 に 。 て 
A@。。。。 。 月 /。。。。 
A 還 。。 ・ 用 ノ >。A1。A 
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40A6H デバ イス へ の 1 バイ ト 出 力 





アド レス 





機 


能 








レジ スタ 











解 





説 





40A6H 


デバ イス へ の 1 バイ ト 出 力 


E B 4 9H 番 地 に 格納 され て いる デー タ が 0 0 是 の 場合 に は CRT 
スク リー ン へ , デー タ が 0 1H-7FH の 場合 に は プリ ンタ へ 、 データ が 8 0H 
ーFFH の 場合 に は CMT イ ンタ フェ ー ス へ , それ ぞ れ アキ ュ ム レー タク の デー タ 


1 バイ ト を 出力 し ます . 


通 


7 


hp 


ー チ ン と し て 使用 し ます . 


C100 
C101 


C104 
C107 
C10A 
C10D 
C10F 


C112 
C113 
C116 
C118 
C11B 
C11D 


C120 F 


C121 
C123 
C125 
C127 
C129 
C12B 
C12D 
C12F 


C131 
C133 
C135 
C13?7 
C139 
C13B 
C13D 
C13F 


C141 


C143 
C146 
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AF 
3249EB 


2164C1 
CDSBC1 
CD750F 
FE03 

CA665C 


18BD 


217BC1 
CDSBC1 


ORe 
START: XOR 


JR 


LPRINT:LD 
CALL 


は , E B 4 9 HH 番地 に 0 0H を 与 ん ., CRT ス クリ ー ン へ の 1 文字 出力 ル 


ーーー display Or PPint ou charactera 一 一 


0C100H 


A 


(0EB492H) ,A Se 1 ec 七 Cr for outpu 


HL ,PROMPT 
DSPMSG 
0F75H 
03H 
Z,5C66H 


inpu セ a character from keyboard 


ョ =y=tem monitor if stop key 


AF 
0257H 
A,O0DH 


0257H echo-back and line feed on cr 


Z,DSPLAY 


Z,LPRINT 
ルイ 
Z,LPRINT 
p 
Z,LPRINT 
2P ィ 
Z,LPRINT 
START 


HL ,CARE 
DSPMSG 


C149 3E01 LD 8A,1 


C14B 3242EB LD  〈OEB49H),A 
H 
? output characters Section 

C14E 3E20 DSPLAY:LD 8A,20H 

C150 CDA640 LOOP: CALL 40AGH 

C153 3C INC A 

C154 FE00 CP OFFHt1 

C156 20F8 JR NZ,LOOP 

Cc158 C3ee5C JP 5CeeH 


display message SubrCou モ ine 


ロー 


C15B 7E SPMSGiLD  A,(HL) 
C15C AZ AND A 

C15D C8 RET Z 

C1SE CD5702 CALL 0257H 
C161 23 INC HL 
C162 18F7 JR DSPMSG 


me=38a9eG 8PG8 


で 


C164 63727420 
C168 6F72206C 
C16C 626E652D 
C170 7072696E 
C174 74657220 
C178 3F2000 


3 Belec モ 上 printer 和 for Outpu モ 


3 %Outpu 七 to each device 


) Jump て o sy8tem moni モ or 


) display a character 


ROMPT:DEFB “crt or line-printer ? 70 


C17B 6C696E65 CARE: DEFB “1ine-printer active !!"。0AH,0DH,0 


C17F 2D707269 
C183 6E746572 
C187 20616374 
C18B 69766520 
C18F 21210A0D 
C193 00 


C124 END 


%GC100 
cr or line-printer ? 1 
1ine-printer active !! 


*GC100 
crt or 1ine-printer ? d 

1 則 和 &"( )※+ キ ュー。/0123456789: j く =>?@ABCDEFG 
HIJKLMNOPQRSTUVMXYZL\]^_ abcdefghi jk 1 mno 
Pqr ヨ tu ソリ x ッ (て 1) て ーー 上 四半 ーー ゴト ーー| | 
ロワ へ ソ 。 。「 」、・ ヲ ァ ィ ウェ ォ ャ ュ ョ ヴー アイ ウエ オカ キク ケ コ サシ ス セ ソ 
タチ ツテ トナ ニ ヌ ネ ノ 八 ヒ フ へ マミ ム メ モヤ コ ヨ ラ リル レロ 9 ン *" ニ F 提 全 マ 
全 ゆ $ ま @ 〇 ハツ 午 月 日 時 の ゆ 
3 
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4BEAH 整数 の 除算 2 


アド レス | 4BEAH 
機 能 | 整数 の 除算 2 
レジ スタ AFBCDEHL 











[解説 | レジ スタ DE に 格納 され た 有 符 号 1 6 ビッ ト の 整数 を 被 除 数 と し , 
レジ スタ H 工 に 格納 され た 有 符 号 1 6 ビット の 整数 を 除 数 と し て , 両者 の 間 で 除 
算 を 行い 演算 結果 を フロ ー テ ィング ・ ア キュ ムレ ー タ に 格納 し て も どり ます . 
た だ し , レジ スタ HL に 与え る 除 数 が , 0 0 0 0H (ゼロ ) で あっ た 場合 に の 
み , “Division by zero" エラ ー が 発生 し イン タプ リタ の 制御 下 に 入り ます . 

この シス テム ・ サ ブル ー チ ン が 2 9 5 0 HH 番地 の 整数 除算 サ プ ブルー チン と 異な 
る 点 は , 整数 型 で 与え られ た 被 除 数 お よび 除 数 を 単 精度 実数 型 に 変換 し た 上 で , 
演算 を 行う こと で す . この た め フ ロー ティ ング ・ ア キュ ムレ ー タ に 格納 され る 演 
算 結果 は , 単 精度 実数 型 と し て 小数 点 以下 まで 正常 に 計算 きれ た 値 で す . 





ーーー division Tor inteoger 1i 一 一 


ORG 0C100H 
す 
C100 2148C1 START: LD HL,PRMPT1 
C103 CD3FC1 CALL DSPMSG 
C106 CD7E1B CALL 1B7EH ) screen edi モ or 
C109 DA665C JP C,5C66H j system monitor if stop key 
C10C 23 INC HL 
C10D CDBE2B CALL 2BBEH 3 convert into binary code 
C110 CD7F27 CALL 277FH 3 CoOnV@F セ ino integer 
C113 ED5BA8F0 LD DE ,(OF0A8H ) j store 1 argument into reg-de 
C117 DS PUSH DE 
C118 2158C1 LD HL,PRMPT2 
C11B CD3FC1 CALL DSPMSG 
C11E CD7E1B CALL 1B7EH ) Screen edi モ or 
C121 23 INC HL 
C122 CDBE2B CALL 2BBEH ) convert into binary code 
C125 CD7F27 CALL 277FH j Conver モ in も o integer 
C128 2AA8F0 LD HL,(0FOA8H) j et 2nd argument into reg-h1 
C12B D1 POP DE j =e て 1= モ 上 argumen 上 into reg-de 
H 
C12C CDEA4B CALL 4BEAH 3% ュ vi5ion for integer 11 
H 
C12F CD222D CALL 2D22H 』 conver モ into character code 
C132 ES PUSH HL 
C133 2165C1 LD HL,ANSUER 
C136 CD3FC1 CALL DSPMSG 
C139 E1 POP HL 
C13A CD3FC1 CALL DSPMSG j display resul 
C13D 18C1 JR START 


j display me8= ら age ubCou モ ine 
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C13F 7E 

C140 AZ 

C141 C8 

C142 CD5702 

C145 23 

C146 18F ァ 7 

C148 0D0A0A20 

C14C 20202020 

C150 78252020 

C154 203F2000 

C158 20202020 

C15C 20792520 

C160 20203F20 

C164 00 

C165 7825202F 

C169 20792520 

C16D 2D2D3E20 

C171 00 

C172 

\G6C100 
メ を ? 20 
ッ 々 。 ? 6 

x を ノッ ター-> 3 
x を ん 。 ? 23 
y% 。 ? 10 

x を ノッ ター-> 2 
x を 。 ? -5 
ッ % 。 ? 20 

x を ノッ を ーー ッ > ーー2 
メ を ? 10 
ッ 々 。 ? 1 

x ノッ を ーー-> 1 
x% 。 ? 10 
y ッ ん 。 ? 0。 


Division by ze 


0k 


1nPu モ ら : top address of message in register h1 
destroys : register a。 下 。h,1 


日 
H 
DSPMSGiLD  A,(HL) 
AND A 
RET Z 
CALL 0257H ) display a character 
INC HL 
JR DSPMSG 


me らら 889@G 8FP@a8a 


で 


RMPT1 :DEFB 0DH,0AH,0AH,“ メ を ? 0 


PRMPT2:DEFB “ y 々 ーー ? 0 


ANSMER:DEFB "x% ノッ を ー-> “0 


END 


・33333 
・456 
・3 

00 

5 

0 

00 

0 

5 


PO 
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4CCBH 英 小 文字 か ら 英 大 文字 へ の 変換 1 


アド レス 








機能 
レジ スタ 











解説 





4 CCBH 
英 小文字 か ら 英 大 文字 へ の 変換 1 
AF 一 一 一 ーー 一 


レジ スタ HH 工 の 内 容 で 指定 する アド レス に 格納 され た デー タ を , ア 


キュ ムレ ー タ に 移動 し , 英 小 文字 に 相当 する キャ ラク タ ・ コ ー ド (6 1H-7A 
H) で あれ ば 英 大 文字 (4 1H-5AH) に 変換 し ます . 


4CCCH 英 小文字 か ら 英 大 文字 へ の 変換 2 


アド レス 
機能 
レジ スタ 











解説 


4 CCCH 
英 小文字 か ら 英 大 文字 へ の 変換 2 


アキ ュ ム レー タ に 格納 され た デー タ が 英 小 文字 に 相当 する キャ ラク 


タ ・ コ ー ド (6 1Hー7 AH) で あれ は 英 大 文字 (4 1H-5AH) に 変換 し ま 


す . 
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サン プル 





ORG 0C100H 


Cc100 3E20 LD  A,20H 
C102 CD5702 LOOP: CALL 0257H 
C105 3C " INC Aa 

C106 FE00 CP OFFH+1 
C108 20F8 JR NZ,LOOP 
C10A 3EOD 9 LD  A,ODH 
C10C CD5702 CALL 0257H 
C10F 3EOA LD  A,OAH 
C111 CD5702 CALL 0257H 


C114 3E20 LD  A,20H 
C116 F5 LOOPC: PUSH AF 
C11? CDCC4C CALL 4CCCH 
C11A CD5702 CALL 0257H 
C11D F1 POP AF 
C11E 3C * INC A 

C11F FE00 CP OFFH+1 
C121 20F3 JR NZ,LOOPC 
C123 C3665C JP 5CeeH 
C126 ( END 

%GC100 


1" 柏 生 2& 7( )※ キ ュー。/0123456789: : く =>?9ABCDEFG 
HIJKLMNOPQRSTUVMXYZE\]^_ abcdefghi jk 1mno 
Pqr ヨ tuv り xy テ て 1 うー 上 目 較 | トー| | 
ロリ へ ソ 。。「 」、・ ラ ァ ィ ウェ オォ ャ ュ ョ ウー アイ ウエ オカ キク ケ コ サシ ス セ ゾ 
タチ ツリ テト ナニ ヌ ネ ノ 人 ハル ヒ フ へ ホ マ ミ ム メ モヤ ユ ヨ ラリ ルレ ロワ ン " "ニトロ 人 る ママ 
全 ゆ $ ま @ 〇 ハツ 人 年 月 日 時 

!" 析 各 を &7( )※ キ 。ー./0123456789: : く =>?@ABCDEFG 
HIJKLMNOPQRSTUVMXYZF\]^_ ABCDEFGHIJKLMNO 
PQRSTUVMUXYZ て Ci) ーー 月 目 較 ーー| ト ーー| | 
ロリ へ ソ  。「 」、・ ヲ ァ ィ ウェ オォ ャ ュ ョ ウー アイ ウエ オカ キク ケ コ サシ ス セ ゾ 
タチ ツテ トナ ニ ヌ ネ ノ 八 ヒ フ ベ ホネ マミ ム メ モヤ ユ ヨ ラリ ルレ ロワ ン *" ニ F 人 ママ 
全 ゆ $ 和 ま @ 〇 へ へ 本 月 日 中 の 徐 
※ 





ーーー digplay capita] characters ーー 一 


display normal characters section 


: display a character 


display no smal] characters section 


3※Convert sma]l] ]1etter into capita1 


j display a character 


3) jump to system moni モ or 
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4CE9H 1 6 進 文字 列 か ら 数 値 デ ー タ へ の 変換 


アド 


レス 





機能 





レジ スタ 











[解説 


4CE9H 
1 6 進 文 字 列 か ら 数 値 デ ー タ へ の 変換 
AFBCDEHL 


レジ スタ HH 工 で 指定 する つぎ の アド レス か ら 1 6 進 関係 以外 の コー 


ド が 格納 され て いる アド レス まで の 1 6 進 キ キネ ラク タ ・ コ ー ド に よる 文字 列 デ ー 
タ を , バイ ナリ ・ コ ー ド に 変換 し . すでに レジ スタ DE に 格納 され て いる バイ ナ 
リ ・ コ ー ド を シフ ト し な が ら 加 えて 行き , 結果 を レジ スタ DE お よび 整数 型 の フ 
ロー ティ ング ・ ア キュ ムレ ー タ (F0A8H-F0OA9 HH 番 地 ) に 格納 し て も ど 
り ま す . 
た だ し , 1 6 進 キ ャ ラク タ ・ コ ー ド に よる 文字 列 が 5 桁 以上 の 場合 に は , “0 
verflow "エラ ー を 発生 し て イン タプ リタ の 制御 下 に 入り ます . 


C100 
C103 


C106 


114CC1 
CD43C1 


2195EC 


C109 23 


C10A 
C100 
C110 
C111 
C113 
C116 
C118 


C11A 


C11C 
C11F 
C122 
C125 


C126 
C129 


C12C 
C12D 
C130 


C131 
C134 


C137 
C13A 
C13D 
C13E 
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CD750F 
CD5702 
77 
FE03 
CA665C 
FE0D 
20EF 


3600 


2195EC 
110000 
CDE24C 
EB 


1169C1 
CD43C1 


E5 
CD132D 
E1 


1183C1 
CD43C1 


CD9C27 
CD222D 


EB 
CD43C1 


: ーーー- hexa decimal vs decimal 一 
H 
ORG 0C100H 
H 
START: LD DE,PROMPT 


CALL DSPMSG 
LD HL , 0EC95H : top address-1 of input buFffer 
INLOOPiINC HL 』 incremen モ pointer 
CALL OF75H ?』 input a character from keyboard 
CALL 0257H j echo-back it 
LD (HL ),A 3j tore i モ 
CP 03H 
JP  Z,5C66H 
CP 0ODH 
JR NZ,INLOOP 
H 
LD (HL),0 j urite end mark 
H 
LD HL , 0EC95H j top address-1 of input buffer 
LD DE ,0 j clear argumenter 
CALL 4CE9H 3%Conver モ into binary code 
EX DE,HL j move resu] モ into register h1 
・ LD DE,UNSIGN 
CALL DSPMSG 
PUSH HL 
CALL 2D13H j display unsigned decimal number 
POP HL 
5 LD DE,SIGN 
CALL DSPMSG 
CALL 279CH : store register hl into facc 
CALL 2D22H j convert in も o character code 
EX DE,HL 


CALL DSPNSG display reault 


C141 18BD JR START 
3 display message Subroutine 
3 inpu : top address of message in register de 
日 destroy= : afT。d。e 
C143 1A DsPMSG:LD 。A,DE) 
C144 AZ AND A 
C145 C8 RET Z 
C146 CD5702 CALL 0257H j) display a character 
C149 13 INC DE 
C14A 18F7 JR DSPMSG 
H 
}】 me らら 8a9G 8a し Ga 
C14C 0DO0A0A32 PROMPT:DEFB 0DH,0AH,0AH, “2 bytes hexa decimal ? &h^,0 
C150 20627974 
C154 65732068 
C158 65786120 
C15C 64656369 
C160 6D616C20 
C164 3F202668 
C168 00 
C169 0D0A2020 UNSIGN:DEFB 0DH,0AH, “ unsigned decimal : “,0 
C16D 2020756E 
C171 7369676E 
C175 65642064 
C179 6563696D 
C17D 616C203A 
C181 2000 
C183 0D0A2020 SIGN: DEFB 0ODH,0AH,“ signed decimal :",0 
C187 20202020 
C18B 7369676E 
C18F 65642064 
C193 6563696D 
C197 616C203A 
C19B 00 
Ct9C END 
\5C100 
2 bytes hexa decimal ? &hO 
unsigned decimal : 0 
signed decimal : 0 
2 bytes hexa decimal ? &h7ff 邊 
unsigned decimal : 3276Z 
signed decimal : 3276 ァ 7 
2 bytes hexa decimal ? &h8000 
unsigned decimal : 32768 
signed decimal :-32768 
2 bytes hexa decima]l ? &h8001 
unsigned decimal : 32769 
sioned decimal :-3276Z 
2 bytes hexa decimal ? &hff 和 f 邊 
ungigned decimal : 65535 
=ioned decimal :-1 
? &h 


2 bytes hexa decimal 
3 
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5 2ECH 文字 列 の 出力 1 





アド レス | 5 2ECH 
機能 | 文字 列 の 出力 1 
レジ スタ | AFBCDEHL 


























解説 | レジ スタ H 工 で 指定 する つぎ の アド レス か ら 0 0H (エン ド ・ マ ー 
ク ) が 格納 され て いる アド レス まで に 置か れ た 2 5 5 バイト 以内 の デー タ を , EE 
B4 9H 番 地 の 出力 フラ グ に よっ て 指定 する 出力 デバ イス へ 出力 し ます . 
EB49H 番 地 に 格納 され て いる 出力 フラ グ の 内 容 が , 0 0 H の 場合 に は CR 
T ス クリ ー ン へ の 出力 、0 1H-7FH の 場合 に は プリ ンタ へ の 出力 , 8 0H 一 
FFH の 場合 に は CMT へ の 出力 と な り ま す が , 通常 は EB4 9H 番 地 に 0 0H 
を 与え を て CRT テ キス ト ・ ス クリ ー ン へ の メッ セー ジ 表 示 サ ブ プルー チン と し て 使 
用 し ます . 





52EDH 文字 列 の 出力 2 


アド レス | 52EDH 


機能 | 文字 列 の 出力 2 


レジ スタ | AFBCDEHL 





[解説 | レジ スタ HL で 指定 する アド レス か ら 0 0H (エン ド ・ マ ー ク ) が 
格納 され て いる アド レス まで に 置か れ た 2 5 5 バイ ト 以 内 の デー タ を , EB49 
H 番 地 の 出力 フラ グ に よっ て 指定 する 出力 デバ イス へ 出力 し ます . 

EB4 9 日 番地 に 格納 され て いる 出力 フラ グ の 内 容 が , 0 0 H の 場合 に は CR 
エス クリ ー ン へ の 出力 , 0 1H-7FH の 場合 に は プリ ンタ へ の 出力 , 8 0H 一 
FFH の 場合 に は CMT へ の 出力 と な り ま す が , 通常 は EB4 9H 番 地 に 0 0H 
を 与え て CRT テ キス ト ・ ス クリ ー ン へ の メッ セー ジ 表 示 サ ブル ー チ ン と し て 使 
用 し ます . 
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C100 
C103 
C106 


C109 
C10D 
C111 

C115 
C119 
C11D 
C121 
C125 
C129 
C12D 
C131 
C133 
C137 
C13B 
C13F 
C143 
C147 
C149 
C14D 
C151 

C155 
C159 
C15D 
C161 

C165 
C167 
C16B 
C16F 
C173 
C17? 
C17B 
C17F 
C183 
C185 
C189 
C18D 
C191 
C195 
C19? 
C19B 
C19F 
C1A3 
C1A7 
C1AB 
C1AF 
C1B3 
C1B5 
C1B9 
C1BD 
C1C1 
C1C5 
C1C9 
C1CD 
C1D1 
C1D3 
C1D?7 


C1DA 


2109C1 
CDEDS2 
C3665C 


504F5354 
53435249 
50540D0A 
46756E63 
74696F6E 
73206F66 
20746865 
204E4543 
2050432D 
38303031 
204D 
41524B20 
54574F20 
61726520 
64697665 
7273652E 
000A 
49742063 
616E2062 
65207573 
65642066 
6F72206D 
616E6167 
656D656E 
742C 
206D6561 
73757265 
6D656E74 
2C206564 
75636174 
6926F6E2C 
206F7220 
7369 
6D706C79 
20617320 
6120686F 
6262792E 
0D0A 
4920686F 
70652074 
68627320 
626F6F6B 
2077696C 
6C207365 
72766520 
6173 
20616964 
20746F20 
61206D6F 
72652061 
6476616E 
63656420 
75736520 
6F66 
2069742E 
2E2E00 


ーーー POB モ Cip 七 ーー 


ORG 0C100H 


START: LD HL,SCRIPT 
CALL 52EDH 3※ ju5 モ disp]lay po 上 scrip モ 
JP 5C6eH 


H 
: Postscrip モ "= area 


SCRIPT:DEFB "PO0STSCRIPT^ ,0DH,0AH 


DEFB “Functions of the NEC PC-8001 M* 


DEFB “ARK TMO are diverse." 0DH,0AH 


DEFB “It can be used for management, 


DEFB "measurement, education, or si" 


DEFB “mp1y as a hobby.",0DH, 0AH 


DEFB “1 hope this book ui11 serve as^ 


DEFB ′ aid to a more advanced use of 


DEFB "it。。。。0 


END 
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\6C100 
POSTSCRIPT 


Functions of the NEC PC-8001 MARK TUMO are diverse・ 


It can be used for managemen モ , measuremen モ 。 education。 or simply as a hobby・. 
1I hope this book ぃ i1]1]1 serve as aid to a more advanced use of i も 。。・ 
※ 
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